Program NN; Uses crt; Var A: array[1..10000] 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.
uses crt; var n,i,t:longint; a:array[1..1000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); t:=t+a[i]; end; writeln(t); readln end.
