Đăng nhập để hỏi chi tiết
2
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var a,n,i,max,min: longint;
begin
Assign(INPUT,'MAMIN.INP'); reset(INPUT);
Assign(OUTPUT,'MAMIN.OUT'); rewrite(OUTPUT);
read(n);
max:= -maxlongint;
min:= maxlongint;
For i:= 1 to n do
begin
read(a);
If a > max then max:= a;
If a < min then min:= a;
end;
writeln(max);
writeln(min);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin