uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        s:=s+a[i];
    end;
    write(s);
    readln
end.

chương trình của mình mặc định n<=100 nhé bạn, mong bạn thấy câu trả lời của mình có ích.

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

      i,n,dem: byte; T: real;

begin

 write(‘Nhap so so nguyen cua day A: ‘);readln(n);

 for i:=1 to n do

  begin

   write(‘Nhap gia tri A[‘,i,’]: ‘);readln(A[i]);

  end;

{ cau a }

 T:=0;

for i:=1 to n do T:=T+A[i];

T:=T/n;

writeln(‘Gia tri trung binh la: ‘,T);

{ cau b } 

writeln(‘Cac so chan, duong cua day so: ‘);

for i:=1 to n do if (((A[i] mod 2)=0) and (A[i]>0)) then writeln(A[i]:5);

{ cau c }

dem:=0; 

for i:=1 to n do if A[i]<>0 then dem:=dem+1;

writeln(‘Co ‘,dem,’ so khac 0.’);

readln

end.