Question

Ребят, срочно!! Нужно ввести пять целых чисел и найти максимальное из них. В Паскале, используя оператор "if then else". Как поняла, необходимо расписать все задание, уже видела здесь решение через n, это не подходит. Буду благодарна тому, кто решит

Answer 1

Program abc
var a,b,c,d,e,max:real;
Begin
Writeln ('Введите пять целых которые нужно сровнять между собой');
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;
Writeln ('Наибольшее число ',max);
End.