Составить программу ( паскаль) для 5 целых чисел, найти максимальное из них p.s только с if then else (должно быть коротко). прошу (

199

455

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

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

asya343434

Информатика

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

Var n1,n2,n3,n4,n5: integer; begin readln(n1,n2,n3,n4,n5); if (n1> n2) and (n1> n3) and (n1> n4) and (n1> n5) then writeln('максимальное число: ',n1) else if (n2> n1) and (n2> n3) and (n2> n4) and (n2> n5) then writeln('максимальное число: ',n2) else if (n3> n1) and (n3> n2) and (n3> n4) and (n3> n5) then writeln('максимальное число: ',n3) else if (n4> n1) and (n4> n3) and (n4> n2) and (n4> n5) then writeln('максимальное число: ',n4) else writeln('максимальное число: ',n5); end.