Viết chương trình Pascal Tính tổng của mảng gồm 20 phần tử 17/07/2021 Bởi Everleigh Viết chương trình Pascal Tính tổng của mảng gồm 20 phần tử
program tong_20phantu; uses crt; var A:array[1..20] of integer; i,t:integer; begin clrscr; t:=0; for i:=1 to 20 do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); t:=t+A[i]; end; write(‘Tong 20 phan tu tren la: ‘,t); readln; end. Bình luận
Đây
program tong_20phantu;
uses crt;
var A:array[1..20] of integer;
i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Tong 20 phan tu tren la: ‘,t);
readln;
end.