program bt;

uses crt;

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

      i, n, S: integer;

begin

  clrscr;

  write('Nhap do dai mang la:'); readln(n);

  for i := 1 to n do begin

    write('Nhap a[', i ,']=');

    readln(a[i]);

  end;

  S := 0;

  writeln('Mang vua nhap la:');

  for i := 1 to n do begin

    write(a[i]);

    S := S + a[i];

  end;

  readln

end.

Xin câu trả lời hay nhất ạ :3

uses crt;
var a:array[1..1000000] of longint;
       n,i,s:integer;
begin
       clrscr;
       write('Nhap do dai cua day: '); readln(n);
       for i:=1 to n do
              begin
                     write('Nhap phan tu thu ',i,': '); readln(a[i]);
                     s:=s+a[i];
              end;
       write('Cac phan tu vua nhap: ');
       for i:=1 to n do write(a[i],' ');writeln;
       write('Tong cac phan tu do: ',s);
       readln;
end.