Question

Помогите пожалуйста!
Информатика,PascalABC
Задача №112157. Минимум и максимум из 5 чисел
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.

Входные данные
Входная строка содержит 5 целых чисел, разделённых пробелами.

Выходные данные
В первой строке нужно вывести минимальное из введённых чисел, во второй строке – максимальное.

Примеры
входные данные
1 2 3 4 5
выходные данные
1
5

Answer 1

Ответ:

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.

Объяснение: