program ct;

uses crt;

var i,S:integer;

A:array[1..20] of integer;

begin

clrscr;

  for i:=1 to 20 do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  S:=0;

    for i:=1 to 20 do S:=S+A[i];

       writeln('tong la:',S);

readln

end.

program oken;
uses crt;
var a: array [1..1000] of integer;
    n,s,i: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    s:=0;
    for i:=1 to n do
        begin
            write('A[',i,']: ');
            readln(a[i]);
            s:=s+a[i];
        end;
    writeln('Tong cac phan tu cua mang: ',s);
    readln;
end.