Question

Viết chương trình nhập điểm trung bình môn Toán của các học sinh trong lớp( sử dụng biến mảng để lưu điểm trung bình, số học sinh của lớp được nhập từ bàn phím. Sau đó in ra màn hình ddierm trung bình cao nhất vè điểm trung bình thấp nhất.

Giúp mình với mai thi r hic hicT.T

Answer 1

program tinhoc;

uses crt;

var n,i,max,min:integer;

a:array[1..1000] of integer;

begin

clrscr;

writeln('Nhap so hoc sinh cua lop: ');readln(n);

for i:= 1 to n do begin

write('Diem trung binh toan cua em hs thu ',i,' : ');readln(a[i]) end;

max:=a[1]; min:=a[1];

for i:=1 to n do begin if max<a[i] then max:=a[i]; if min>a[i] then min:=a[i] end;

writeln('Diem trung binh cao nhat : ',max);

writeln('Diem trung binh thap nhat : ',min);

readln

end.