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 a<b then min:=a else min:=b;
if c<min then min:=c;
if d<min then min:=d;
if e<min then min:=e;
writeln(min);
writeln(max);
end.

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