Question

Việt chương trình nhập điểm môn toán của N học sinh từ bàn phím . Tính điểm TB môn toán của N học sinh

Giúp mik vs ạ

Mai mik fai ktra.tin rôi!!!

Answer 1

uses crt;

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

n,i:integer;

tb:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Nhap diem mon Toan cua hoc sinh thu ',i,'='); readln(toan[i]);

end;

tb:=0;

for i:=1 to n do

tb:=tb+toan[i];

writeln('Trung binh mon Toan cua ',n,' hoc sinh la: ',tb/n:4:2);

readln;

end.