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

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

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

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

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.

Объяснение:

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

2000*2000=625 кб возможно но я неуверена