Nội dung của Bài thực hành 7: Xử lý dãy số trong chương trình dưới đây các em sẽ làm bài tập thực hành khai báo và sử dụng các biến mảng; ôn luyện cách sử dụng câu lệnh lặp if...then, for...do; củng cố kĩ năng đọc, hiểu và chỉnh sửa chương trình;... Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
a. 1. Cách khai báo mảng trong Pascal như sau:
Tên mảng: array [ < Chỉ số đầu > .. < Chỉ số cuối > ] of < Kiểu dữ liệu >;
Trong đó:
a.2. Truy cập đến giá trị phần tử trong mảng:
Tên mảng [ Chỉ số ];
a.3. Nhập giá trị cho mảng:
Sử dụng lệnh Read (hoặc Readln) kết hợp với For ... do để nhập giá trị cho mảng.
Các bước nhập giá trị cho mảng:
a.4. In giá trị các phần tử của mảng:
Sử dụng lệnh Write (hoặc Writeln) kết hợp với For ... do để in giá trị các phần tử của mảng.
Các bước in giá trị của mảng:
Tiêu chuẩn:
Gợi ý làm bài:
Ý tưởng:
Xác định bài toán:
Các biến sử dụng trong chương trình:
Chương trình:
Program Phan_loai;
uses crt;
Var i, N, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so hoc sinh trong lop, N= ');
readln(N);
writeln('Nhap diem :');
For i:=1 to N do
Begin
write(‘Diem cua hoc sinh thu ‘, i,’ =’);
readln(A[i]);
End;
Gioi:=0;
Kha:= 0;
Trungbinh:= 0;
Kem:= 0;
for i:=1 to N do
Begin
if A[i] >= 8.0 then
Gioi:= Gioi + 1;
if (A[i] <8.0 ) and (A[i] >=6.5) then
Kha:= Kha + 1;
if (A[i] >= 5.0 ) and (A[i] < 6.5) then
Trungbinh:= Trungbinh + 1;
if a[i]<5.0 then
Kem:=Kem+1;
end;
writeln(' Ket qua hoc tap: ');
writeln(Gioi, ' ban hoc gioi ');
writeln(Kha, ' ban hoc kha ');
writeln(Trungbinh, ' ban hoc trung binh');
writeln(Kem, ' ban hoc kem ');
readln;
End.
Gợi ý làm bài:
Xác định bài toán:
Input: Điểm môn Toán và điểm môn Văn của các bạn trong lớp.
Output:
Thuật toán:
Chương trình:
Program Diem_trung_binh;
Uses crt;
Var i, N: integer;
TBToan, TBVan: real;
DiemToan, DiemVan: array [1..100] of real;
Begin
clrscr;
write(‘Nhap so cac ban HS trong lop, N =‘);
readln(N);
writeln(‘Nhap diem Toan: ‘);
For i:=1 to N do begin write(i, ‘ . ‘);
readln(DiemToan[i]); end;
Writeln(‘Nhap diem Van: ‘);
For i:=1 to n do begin write(i, ‘. ‘);
readln(DiemVan[i]); end;
writeln(‘Diem trung binh moi HS: ‘);
For i:=1 to n do
Writeln(i, ‘ . ’, (DiemToan[i]+DiemVan[i])/2:3:1);
TBToan:=0;
TBVan:=0;
For i:=1 to N do
Begin
TBToan:=TBToan+DiemToan[i];
TBVan:=TBVan+DiemVan[i];
end;
TBToan:=TBToan/N;
TBVan:=TBVan/N;
Writeln(‘Diem trung binh mon Toan: ‘, TBToan:3:2);
Writeln(‘Diem trung binh mon Van: ‘,TBVan:3:2);
readln
End.
Chạy chương trình với các số liệu cụ thể:
N=3 (3 học sinh):
Học sinh | Điểm Toán | Điểm Văn | Điểm trung bình của mỗi học sinh |
1 | 5 | 7 | 6.0 |
2 | 6 | 8 | 7.0 |
3 | 7 | 9 | 8.0 |
Điểm trung bình Toán và Văn | 6.0 | 8.0 |
Sau khi học xong Bài thực hành 7: Xử lý dãy số trong chương trình, các em cần ghi nhớ các nội dung:
1. Cú pháp khai báo biến mảng kiểu số nguyên và số thực trong Pascal có dạng:
Trong đó, chỉ số đầu không lớn hơn chỉ số cuối.
2. Tham chiếu tới phần tử của mảng được xác định bằng cách:
< tên biến mảng > [ chỉ số ]
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 7 cực hay có đáp án và lời giải chi tiết.
Cách khai báo mảng sau đây cách nào khai báo đúng?
Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là:
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Cách khai báo mảng sau đây cách nào khai báo đúng?
Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là:
Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?
Số phần tử trong khai báo dưới đây là bao nhiêu?
Var tuoi : array[12..80] of integer;
Các khai báo biến mảng sau đây trong Pascal là đúng?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết chương trình nhập vào 1 mảng gồm n số tự nhiên.
-In ra màn hình các chữ số chia hết cho 3 và 9.
-Đếm các số chia hết cho 3 và 9.
Câu trả lời của bạn
program nhap;
uses crt;
var A:array [1..1000] of integer;
n,i,dem:integer;
begin
writeln ('nhap vao so phan tu cua mang');readln (n);
for i:=1 to n do readln (A[i]);
write ('cac so chia het cho 3 va 9 la: ');
for i:=1 to n do
if (A[i] mod 3 =0) and A[i] mod 9=0) then
begin
write (A[i]);
dem:=dem+1;
end;
writeln ('co tat ca ',dem,' so chia het cho 3 va 9');
readln end.
Các chữ số từ 0 đến 9, nếu một chữ số bất kỳ có một đường khép kín thì ta gọi chữ số đó có 1 lỗ hổng, có hai đường khép kín thì ta gọi số đó có 2 lỗ hổng, và không có đường khép kín nào thì ta gọi chữ số đó có 0 lỗ hổng. Vậy các chữ số 0, 4, 6, 9 có 1 lỗ hổng, chữ số 8 có 2 lỗ hổng và các chữ số 1, 2, 3, 5, 7 có 0 lỗ hổng.
Cho một số nguyên dương N (1 ≤ N ≤ 2147483647), ta luôn đếm được số lỗ hổng của các chữ số xuất hiện trong nó.
Ví dụ: Với N = 388247 thì ta đếm được N có 5 lỗ hổng.
Câu trả lời của bạn
program bai2;
uses crt;
var i,d,a,g,s:longint;
n:int64;
{---------------------------------}
procedure nhap;
begin
repeat
write('Nhap N= '); readln(n);
until (n>=0) and (n<=2147483647);
end;
{----------------------------------}
procedure xuli;
begin
s:=0;
if n=0 then write('So lo hong la: 1')
else
begin
while n<>0 do
begin
g:=n mod 10;
n:=n div 10;
if (g=0) or (g=4) or (g=6) or (g=9) then begin g:=1; s:=s+g; end;
if (g=8) then begin g:=2; s:=s+g; end;
if (g=1) or (g=2) or (g=3) or (g=5) or (g=7) then g:=0;
end;
write('So lo hong la: ',s);
end;
end;
{------------------------------------}
BEGIN
clrscr;
nhap;
xuli;
readln;
END.
const
fi='lhcs.inp';
fo='lhcs.out';
a:array[0..9] of byte=(1,0,0,0,1,0,1,0,2,1);
var
f:text;
t,n:integer;
procedure inp;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=0;
while n<>0 do
begin
t:= t+a[n mod 10];
n:= n div 10
end;
write(f,t);
close(F);
end;
BEGIN
INP;
OUT;
END.
Viết chương trính cho các bài sau:
Bài 1: Gỉai PT bậc nhất một ẩn: ax+b=0.
Bài 2: Nhập ba số thực a, b và c từ bàn phím và máy tính, sau đó kiểm tra ba số đó, có thế là cạnh của tam giác đều, tam giác cân và tam giác vuong hay không và ghi kết quả.
Bài 3: Tính N! N= 1*2.3.n
Bài 4: Tính tổng S= 1+ 2!+ 3!+...+n!
Bài 5: Tính tổng S= 1+ 1/2!+ 1/3!+...+ 1/n!
Bài 6: Tính tổng S= 1+ 1/22 + 1/32+ ...+ 1/22
Bài 7: Tính tổng S= 1+1/1*3+ 1/2*4+...+ 1/n(n+2)
Bài 8: Gỉai bài toán sau:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Tìm số trâu mỗi loại?
Bài 9:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Hỏi có bao nhiêu chó, bao nhiêu gà?
Bài 10: Viết PT nhập vào một mảng N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhập.
Bài 11: Nhập điểm số các bạn trong lớp sau đó in ra màn hình số bạn đạt kết quả loại giỏi, khá, TB
Bài 12: Nhâp n số nguyên từ bàn phím và tính tổng các dương
Bài 13: Cho một dãy số gồm n phần tử. Gía trị của các phần tử là sô nguyên. Thực hiên các chương trình sau:
a) Nhập từ bán phím số phần tử và giá trị của từng phần tử
b) Tính tổng các phần tử của dãy
c) Tính tổng âm các phần tử của dãy
d) Tính tổng và TBC của các phần tử chẵn của dãy
e) Tìm các phần tử có giá trị lớn nhất của dãy
f) Tìm các phần tử có giá trị nhỏ nhất của dãy
Bài 14: Tính tổng: S= 1/2+ 2/3+ 3/4+...+n/n+1 với n là số nguyên dương được nhập từ bàn phím
Bài 15: Tính tổng: S= -1+2-3+4-...+(-)nn với n là số nguyên dương được nhập từ bàn phím
HUHU CỨU VỚI T.T
Câu trả lời của bạn
program tamgiac;
var a,b,c,cd,cr,ch: real;
Begin
write('nhap mot canh tam giac vao day'); readln(a)
write('nhap canh thu hai'); readln(b);
write('nhap canh thu ba'); readln(c);
If (a+b>c) and (b+c>a) and (c+a>b) then
If a=b and b=c and a=c then write(' tam giac do la tam giac deu);
If If a=b then write(' tam giac can')
Else If c=b then write(' tam giac can')
Else If a=c then write(' tam giac can');
If \(a\cdot a=b\cdot b+c\cdot c\) then write('tam giac vuong')
Else If \(b\cdot b=a\cdot a+c\cdot c\) then write('tam giac vuong')
else If \(c\cdot c=b\cdot b+a\cdot a\) then write('tam giac vuong');
readln;
End
1. Viết chương trình nhập vào hai cạnh của một hình chữ nhật. In ra màn hình chu vi, diện tích của nó.
2. Nhập bán kính hình tròn. In ra diện tích chu vi.
3. Viết chương trình nhập hai số a, b. Kiểm tra tổng của chúng có phải dương và chia hết cho 3 không?
4. Viết chương trình tính tổng: S = 1 + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) +...+ \(\dfrac{1}{n}\).
5. Viết chương trình tính tổng: S = \(\dfrac{1}{2}\) + \(\dfrac{2}{3}\) + \(\dfrac{3}{4}\) +...+ \(\dfrac{n}{n+1}\).
Câu trả lời của bạn
Viết chương trình tính 1+2+3+...+t với t là 1so tùy ý do người sử dụng nhập.
Câu trả lời của bạn
Program Tinhtongsonguyen;
Uses Crt;
Var i, t, Tong: Integer;
Begin
Clrscr;
Writeln('Nhap so t='); Readln(t);
Tong:=0
For i:=1 to t do
Tong:=Tong+i;
Writeln('Ket qua',Tong);
Readln;
End.
Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người). Hãy sắp xếp họ tên của các học viên theo thứ tự alphabet (nếu tên trùng nhau thì sắp xếp theo tên đệm, nếu tên đệm trùng nhau thì sắp xếp theo tên họ). In ra màn hình danh sách sau khi đã sắp xếp.
Câu trả lời của bạn
uses crt;
type ht=record
ho:string[15];
dem:string[10];
ten:string[10];
end;
var a:array[1..100] of ht;
stmp:ht;
i,j,n,tmp:integer;
s1,s2:string;
begin
clrscr;
write('So hs < 50! so hs=');readln(n);
for i:=1 to n do
begin
write('Ho hs ',i,':');readln(a[i].ho);
write('dem hs ',i,':');readln(a[i].dem);
write('Ten hs ',i,':');readln(a[i].ten);
end;
for i:=1 to n do
for j:=i+1 to n do
begin
if a[i].ten>a[j].ten then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;
if a[i].ten=a[j].ten then
if a[i].dem>a[j].dem then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end
else if a[i].dem=a[j].dem then
if a[i].ho>a[j].ho then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;
end;
for i:=1 to n do
begin
writeln('Hs ',i,':',a[i].ho,' ',a[i].dem,' ',a[i].ten);
end;
readln;
end.
đếm xem có bao nhiêu số chẵn.
lập trình pascal
Câu trả lời của bạn
Var i,n,k:integer;
Begin
Write (' nhap n : ');
Readln(n);
For i:= 1 to n do If i mod 2=0 then k:=k+1;
Writeln (' tong so chan la : ',k);
Readln;
end.
VIẾT CT pascal tính tổng S=1+1/3+1/5+ ...+ 1/2+n với n la so nguyen duong nhập từ bàn phím
Câu trả lời của bạn
Var i,n:integer;
S:real;
Begin
Write (' nhap n :');
Readln(n);
S:=1;
For i:= 1 to n do S:= S+1/i;
Writeln (' tong S:',S);
Readln;
end.
1.vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tích các phần tử trong mảng chỉ 1 đến 8
2. vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tổng các phần tử trong mảng chỉ 1 đến 5
Câu trả lời của bạn
USES CRT;
VAR A:ARRAY[1..100] OF INTEGER;
N,I:INTEGER;
S:LONGINT;
BEGIN
CLRSCR;
WRITE('NHAP SO PHAN TU: ');
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE('A[',I,']=');
READLN(A[I]);
END;
S:=1;{VI KHI NHAN VOI 1 THI MOI RA KET QUA NHA BAN}
FOR I:=1 TO 8 DO S:=S*A[I];{CO THE THAY 8 THANH 5 DE LAM CAU 2}
WRITELN('TONG CAC PHAN TU TRONG MANG TU 1 DEN 8 LA: ',S);
READLN
END.
Viết ctr nhập chiều cao hs của 1 lớp, in ra màn kình độ lệch chiều cao của bạn cao nhất, bạn thấp nhất so với chiều cao trung bình của cả lớp.
Câu trả lời của bạn
program chieucao;
uses crt;
var : do,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so hoc sinh trong lop:');readln(n);
for i:=1 to n do begin
write('Nhap chieu cao cua hoc sinh thu ',i,':');readln(a[i]); end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if a[i] > max then max:=a[i];
if a[i]<min then min :=a[i];
end;
do:=max-min;
writeln('Do chenh lech chieu cao cua ban cao nhat va thap nhat la:',do);
readln
end.
Viết chương trình cho phép nhập số tự nhiên N từ bàn phím (với
0<N<=12) rồi thực hiện:
a) Tìm N! = 1.2.3...N.
b) Tìm
\(\dfrac{1}{1!}+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}\)
c) Xóa tất cả các chữ số 0 tận cùng của N! rồi xuất kết quả ra màn
hình.
Câu trả lời của bạn
**********************************************************
PROGRAM BT_Giai_thua;
USES crt;
VAR i,n:integer; s1:string;
Function Giaithua(x:integer):longint;
Var s,i:longint;
Begin
s:=1;
for i:=1 to x do s:=s*i;
Giaithua:=s;
End;
Function Tong(x:integer):real;
Var j:integer; s:real;
Begin
s:=0;
for j:=1 to x do s:=s+1/Giaithua(j);
Tong:=s;
End;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
writeln(n,'!=', Giaithua(n));
writeln('Tong 1/1!+1/2!+...+1/',n,'! la:',Tong(n):0:2);
str(Giaithua(n),s1);
write('Sau khi xoa duoc:');
i:=length(s1)+1;
repeat
if s1[i-1]='0' then delete(s1,i-1,1)
else break;
i:=i-1;
until i=1 ;
write(s1);
readln;
END.
Viết chương trình tính A
A= \(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình nhập số n từ bàn phím và đếm xem có bao nhiêu số lẻ(n>0)
Câu trả lời của bạn
uses crt;
var b:array[1..100] of integer;
i,n,d:integer;
begin
clrscr;
repeat
writeln('nhap n=');readln(n);
until n>0;
for i:=1 to n do
begin writeln('b[',i,']','=');readln(b[i]);end;
writeln('so cac so le la');
for i:=1 to n do
if b[i] mod 2<>0 then d:=d+1;
writeln(d);readln;end.
Nhập vào một số n (5<=n<=100) và n phần tử của dãy a.
Yêu cầu: Tìm ước chung lớn nhất của tất cả các phần tử của dãy
Câu trả lời của bạn
program tim_ucln;
uses crt;
var n,i:byte;
uc:longint;
a:array[1..100] of longint;
function ucln(x,y:longint):longint;
begin
while x<>y do
if x>y then x:=x-y else y:=y-x;
ucln:=x;
end;
begin
clrscr;
write('nhap n:');readln(n);
while (n<5) or (n>100) do
begin
write('nhap lai n thoa man 5<=n<=100:');
readln(n);
end;
writeln('nhap day:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
uc:=ucln(a[1],a[2]);
for i:=1 to n do
uc:=ucln(uc,a[i]);
write('ucln cua tat ca phan tu cua day la:',uc);
readln;
end.
viết chương trình in ra tất cả số nguyên tố lớn hơn m nhỏ hơn n(m,n nhập từ bàn phím)
MIK CẦN GẤP
Câu trả lời của bạn
program bai1;
var m,n,s:longint;
begin
write('M= ');readln(m);
write('N= ');readln(n);
for k:=(m+1) to (n-1) do
begin
s:=0;
for i:=1 to n do
if (k mod i=0) then s:=s+1;
if s=2 then write(k,' ');
end;
readln
end.
Ai giỏi Tin giúp cái cho triệu like
Trong các dải lệnh của Excel có những dải lệnh nào đặc biệt dùng để thực hiện các phép tính với các số và xử lý dữ liệu
Câu trả lời của bạn
ý của bạn có thể nói rõ hơn đc ko ????
Viết chương trình chèn một số vào đầu dãy số, sau đó in dãy số vừa chèn
Câu trả lời của bạn
program bai1;
var a:array[1..100] of longint;
i,n,x:longint;
begin
write('N= ');readln(n);
for i:=2 to n+1 do
begin
write('a[',i-1,']= ');
readln(a[i]);
end;
write('Nhap phan tu cac chen ');
readln(x);
a[1]:=x;
for i:=1 to n+1 do
write(a[i],' ');
readln
end.
Giả sử cần Viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập là số chẵn hay lẻ , chẳng hạn 5 là số lẽ 8 là số chẵn .Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó. ( bt7, sgk/51)
Câu trả lời của bạn
program chanle;
uses crt;
var n:longint;
begin
clrscr;
writeln('Nhap so bat ki);read(n);
if (n mod 2=0) then write(n,' la so chan)
else write(n,' la so le);
readln
end.
viết chương trình tìm giá trị lớn nhất,nhỏ nhất của dãy n số được nhập từ bàn phím.
giúp tớ với
Câu trả lời của bạn
Program Cau2;
Uses crt;
Var i,n,max,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Write(‘ Nhap do dai cua day so, n= ‘);
Readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:= 1 to n do
Begin
Write(‘a[‘, i, ‘]= ‘);
Readln(a[i]);
End;
max:= a[1];
min:= a[1];
For i:= 2 to n do
Begin
If max < a[i] then max:= a[i];
If min > a[i] then min:= a[i];
End;
Writeln(‘So lon nhat la max= ‘, max);
Writeln(‘So nho nhat la min= ‘, min);
Readln;
End.
Biết rằng : Mọi số tự nhiên chẵn lớn hơn 2 đều viết được dưới dạng tổng của 2 số nguyên tố . Hãy viết chương trình nhập vào một số chẵn N lớn hơn 2, hãy tìm cặp số nguyên tố có tổng bằng N nếu có nhiều cặp như vậy thì hãy tìm cặp có chứa số nguyên tố nhỏ nhất ( Code pascal)
Câu trả lời của bạn
program thefirstprograms;
uses crt;
var a,b,c:longint;
begin
clrscr;
write('Nhap so thu nhat ');readln(a);
write('Nhap so thu hai ');readln(b);
write('Nhap so thu ba ');readln(c);
if (a>b) and (a>c) then writeln(a,' la so lon nhat')
else if (b>a) and (b>c) then writeln(b,' la so on nhat')
else if (c>a) and (c>b) then writeln(c,' la so lon nhat')
else (a=b=c) then writeln('Ba so bang nhau');
readln
end.
Câu 1: Viết chương trình nhập và in ra n phần tử kiểu số nguyên được nhập từ bàn phím. Tính tổng các phần tử. Dùng cả 2 dạng While...do và For...do?
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
Câu trả lời của bạn
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
program mang;
uses crt;
var : tong,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,':');readln(a[i]);
tong:= tong+a[i];
end;
max:=a[1]; min:=a[i];
for i:=2 to n do begin
if a[i] > max then max:=a[i];
if a[i]<min then min :=a[i];
end;
writeln('Tong cua day so la:',tong);
writeln('Phan tu lon nhat la:',max);
writeln('Phan tu nho nhat la:',min);
readln
end.
write(' Diem trung binh cua ',n,' mon hoc la:',tb);
readln
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *