Question

Viết chương trình nhập vào dãy số gồm n số nguyên và in ra màn hình Trung bình cộng các số có trong mảng

Answer 1

Var a:array[1..200] of integer;

i,n,s:integer;

tbc:real;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.