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

Question

ngocchau · Answer

VD:     =Max(A1:H1)   Enter

dananhnhu · Answer

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.

0 bình luận về “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”