Viết chương trình nhập vào số nguyên dương n (n<hoạc =20) vào dãy gồm n số nguyên a1....aN . Hãy tính tổng các phần tử của dãy

program ct;

uses crt;

var n:array[1..20] of byte;

i,t:integer;

begin

clrscr;

write('nhap a:');readln(a);

for i:=1 to a do

a:=a+1;

writeln('a[',i,']=');readln(a[i]);

end;

for i:=1 to a do t:=t+n;

writeln(t);

readln;end.

uses crt;

var A : array [1 .. 100] of integer;

i, N, S : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

S := 0;

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do begin read(A[i]);

S := S + A[i]; end;

write('Tong phan tu = ', S);

readln

end.