Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел....

Question

Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.

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

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

Примеры
входные данные
1 2 3 4 5
выходные данные
1
5
На паскале

Answer 1

Var a,b,c,d,e,max,min:integer;
begin
writeln('a, b, c, d, e:');
readln(a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
if aif cif dif ewriteln(min);
writeln(max);
end.

Пример:
a, b, c, d, e:
1 2 3 4 5
1
5

Comments

Честно говоря единственное что не понятно зачем так заморачиваться с условиями?Скидывали бы в массив и меняли при надобности в цикле