program Min; uses crt; var tong,i,n:integer; A:array[1..1000] of integer; begin clrscr; tong:=0; writeln('Nhap n: '); readln(n); for i:=1 to n do begin writeln('Nhap so hang thu ',i,': '); readln(A[i]); tong:=tong+A[i]; end; writeln('Tong cac so la: ',tong); readln end.
