Поставь строки в нужном порядке var k,x,m : integer; BEGIN m:=0; For k:=1 to 10 do begin x:=Random(1000); if x>m then m:=x; end; writeln('Ответ =',m); END.
Логотип SimpleЦДЗ

Похожие

Задание

Поставь строки в нужном порядке

  • var k,x,m : integer;
  • BEGIN
  • m:=0;
  • For k:=1 to 10 do
  • begin
  • x:=Random\(1000\);
  • if x>m then m:=x;
  • end;
  • writeln\('Ответ =',m\);
  • END.

Тот же тест