Question

Nhập điểm của N bạn trong lớp, in ra màn hình điểm trung bình của các bạn

Answer 1

Var a:array[1..60] of real;

s,tbc:real;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem cua ban thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Diem trung binh la ',s);

Readln

End.