Question

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

Answer 1

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.