Помогите пожалуйста!
Информатика,PascalABC
Задача №112157. Минимум и максимум из 5 чисел
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.
Входные данные
Входная строка содержит 5 целых чисел, разделённых пробелами.
Выходные данные
В первой строке нужно вывести минимальное из введённых чисел, во второй строке – максимальное.
Примеры
входные данные
1 2 3 4 5
выходные данные
1
5
Информатика,PascalABC
Задача №112157. Минимум и максимум из 5 чисел
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.
Входные данные
Входная строка содержит 5 целых чисел, разделённых пробелами.
Выходные данные
В первой строке нужно вывести минимальное из введённых чисел, во второй строке – максимальное.
Примеры
входные данные
1 2 3 4 5
выходные данные
1
5
More Questions From This User See All
Answers & Comments
Ответ:
var
max,min,i,a:integer;
begin
writeln('Введите числа');
max := 0;
for i := 1 to 5 do
begin
read(a);
if(i = 1) then
min :=a;
if(a > max) then
max:= a;
if(a < min) then
min:= a;
end;
Writeln(min);
Writeln(max);
end.
Объяснение: