Em hãy VCT nhập mảng 30 số nguyên là số tiền quyên góp ủng hộ miền trung của các bạn lớp 11i. Em hãy tính tổng số tiền và on ra màn hình
Em hãy VCT nhập mảng 30 số nguyên là số tiền quyên góp ủng hộ miền trung của các bạn lớp 11i. Em hãy tính tổng số tiền và on ra màn hình
By Cora
uses crt;
var a: array[1..30] of integer;
i,n: integer;
s: longint;
begin
clrscr;
write (‘nhap so luong nguoi ung ho: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap so tienung ho cua nguoi thu ‘,i,’: ‘); readln (a[i]);
s:=s+a[i];
end;
writeln (‘tong so tien ung ho la: ‘,s);
readln;
end.
program tong_tien;
uses crt;
var A:array[1..30] of longint;
i,t:longint;
begin
clrscr;
t:=0;
for i:=1 to 30 do
begin
write(‘Nhap so tien ung ho cua ban thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Tong so tien quyen gop la: ‘,t);
readln;
end.