Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. предусмотреть вывод данных на дисплей. в pascal abc

145

399

Посмотреть ответы 2

Ответы на вопрос:

мядель

Информатика

4,6(23 оценок)

Program max_and_min; vara,b,c,d,max,min: integer; begin writeln('введите 4 целых числа через пробел или enter -> '); readln(a,b,c,d); if (a> b) then max: =a else max: =b; if (c> max) then max: =c; if (d> max) then max: =d; min: =a; if b< a then min: =b; if c< b then min: =c; if d< c then min: =d; writeln('большее из чисел = ',max); writeln('меньшее из чисел = ',min) end. писал на скорую руку, но вроде всё правильно.