Quảng cáo
1 câu trả lời 184
1 năm trước
program MaxMinValue;
var n, i, max, min, num: integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
write('Nhap cac phan tu cua day: ');
readln(num);
max := num;
min := num;
for i := 2 to n do
begin
readln(num);
if num > max then max := num;
if num < min then min := num;
end;
writeln('Gia tri lowns nhat cua day la: ', max);
writeln('Gia tri nho nhat cua day la: ', min);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Gửi báo cáo thành công!