uses crt; var i,n:longint; a:array[1..1000000]of longint; function tong:longint; var i:longint; begin tong:=0; for i:=1 to n do tong:=tong+a[i]; end; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('Nhap A[',i,']: ');readln(a[i]); end; writeln(tong); readln end.
