Nhập một mảng số thực gồm N số ( N ≤ 100) từ bàn phím.Tính tổng và in mảng ra màn hình

program mangthuc;

Uses crt;

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

      n,i:byte;

      t:real;

begin

clrscr;

write('Nhap so luong phan tu N: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

T:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

  t:=t+A[i];

 end;

writeln('Mang do la: ');

for i:=1 to n do

 write(A[i]:5:2);   

writeln;

write('Tong cua chung la: ',t:2:2);

readln

end.

uses crt;
var n,i:byte;
a:array[1..100] of real;
    s:real;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        s:=0;
        for i:=1 to n do
        begin
                write('Nhap a[',i,']=');
                readln(a[i]);
                s:=s+a[i];
        end;
        write('Tong la:',s:0:3);
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.