107
64
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1769
1692
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
Hãy giúp mọi người biết câu trả lời này thế nào?
1254
1145
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
0
0
https://hoidap247.com/cau-hoi/722572
0
0
giúp mình viết 2 chương trình pascal đi bạn
Bảng tin
107
1351
64
cảm ơn bạn nhiều lắm á, đề này khó quá à.
1769
28435
1692
Hì hì hong có gì nha :3
0
165
0
https://hoidap247.com/cau-hoi/722572
0
165
0
giúp mình viết 2 chương trình pascal đi bạn