Нужна программа для паскаль с нахождением максимального числа из десяти, и главное - там должен цикл с предусловием. Заранее

flywitch flywitch    1   06.03.2020 21:31    4

Ответы
zavirohinoleksa zavirohinoleksa  11.10.2020 20:15

program max_iz_10_while;

const n=10;

var

x,i,m:integer;

begin

read(x);

m:=x;

i:=1;

while i<=n do

begin

read(x);

if x>m then m:=x;

i:=i+1;

end;

write(m)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика