Viết chương trình nhập vào điểm của lớp 11A1, xuất ra mảng điểm học sinh cao và thấp nhất lớp. Ừm, lớp 11A1 có 37 học sinh nha.
2 câu trả lời
uses crt;
var i:integer;
max,min:real;
A:array [1..37] of real;
begin
clrscr;
for i:=1 to 37 do
begin
write('Nhap diem cua hoc sinh thu ',i,': ');
readln(A[i]);
end;
max:=A[1]; min:=A[1];
for i:=2 to 37 do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln(' ');
writeln('Hoc sinh diem cao nhat lop la: ',max:4:2);
writeln('Hoc sinh diem thap nhat lop la: ',min:4:2);
readln
end.
:D
var i: longint;
max,min: real;
a: array [1..37] of real;
begin
clrscr;
max:=0;
min:=101;
for i:=1 to 37 do
begin
write('Nhap diem cua hoc sinh thu ',i);
read(A[i]);
end;
for i:=1 to 37 do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln;
writeln('Hoc sinh diem cao nhat lop la: ',max:0:4);
writeln('Hoc sinh diem thap nhat lop la: ',min:0:4);
readln;
end.