viết chương trình tính và đưa ra tính sổ điểm cao nhất (MAX) và số lượng học sinh đạt điểm cao nhất
viết chương trình tính và đưa ra tính sổ điểm cao nhất (MAX) và số lượng học sinh đạt điểm cao nhất
By Sadie
By Sadie
viết chương trình tính và đưa ra tính sổ điểm cao nhất (MAX) và số lượng học sinh đạt điểm cao nhất
var i,n: longint;
max: real;
a: array [1..100] of real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
max:=0;
for i:=1 to n do
begin
write(‘Nhap diem cua hoc sinh thu ‘,i);
read(A[i]);
end;
for i:=1 to n do
if A[i]>max then max:=A[i];
writeln;
writeln(‘Hoc sinh diem cao nhat lop la: ‘,max:0:4);readln;
end.
VD: =Max(A1:H1) Enter