uses crt; var a: array[1..12345678] of real; i,n:longint; s: double; begin clrscr; write ('nhap n: '); readln (n); for i:=1 to n do begin write ('nhap phan tu thu ',i,': '); readln (A[i]); s:=s+a[i]; end; writeln ('tong la: ',s:1:2); readln; end.
uses crt; var m: array[1..12345678] of real; i,n:longint; s: extended; begin clrscr; write ('nhap n: '); readln (n); for i:=1 to n do begin write ('nhap phan tu thu ',i,': '); readln (m[i]); s:=s+m[i]; end; writeln ('tong la: ',s:4:0); readln; end.
