Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 bif cif dwriteln(Большее из чисел = ,max);
writeln(Меньшее из чисел = ,min)
END.
Писал на скорую руку, но вроде всё правильно.

Оцени ответ