Question

Answer 1

uses crt;

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

i,n,t:integer;

{---------------chuong-trinh-con-nhap-day-so--------------------}

procedure nhap;

begin

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

end;

{-----------------thu-tuc-in-day-so----------------------}

procedure in;

begin

for i:=1 to n do 

  write(a[i]:4);

end;

{------------------chuong-trinh-chinh---------------------}

begin

clrscr;

nhap;

in;

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.