Question

sử dụng lệnh lặp để nhập n điểm trung bình và tính điểm trung bình của các điểm nhập vào

 

Answer 1

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

s:real;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

s:=s/n;

Write('Diem trung binh la ',s:10:2);

Readln

End.