Viết chương trình nhập và in ra một dãy số thực Tính trung bình cộng của các số vừa nhập

Program baitap;

Uses crt;

Var A:array[1..200] of real;

      T:real;

      i,n:integer;

Begin

Clrscr;

Write('Nhap so cac so phan tu:'); Readln(n);

T:=0;

For i:=1 to n do

     Begin

     Write('Nhap phan tu thu ',i,':');

     Readln(A[i]);

     T:=T+A[i];

     End;

For i:=1 to n do Writeln(A[i]);

Writeln('Trung binh cong:',T/n:8:2);

Readln

End.

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

i,n:integer;

s:real;

begin

read(n);

For i:=1 to n do

begin

read(A[i]);

s:=s+A[i];

end;

for i:=1 to n do write(A[i],' ');

writeln;

write(s/n:0:2);

end.