Program BTH; uses crt; var a:array[1..1000000] of longint; n,s:qword; i:byte; Begin clrscr; Write('Nhap n: ');readln(n); For i:=1 to n do Begin Write('Nhap so thu ',i,' : ');readln(a[i]); s:=s+a[i]; end; writeln('Tong day so tren la: ',s); readln; End.
Program FNG; Uses crt; Var A: array[1..20] of longint; n,i,s: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); s:=s+A[i]; End; Write('S = ',s); Readln End.