Расставьте операторы программы нахождения минимального числа в правильном порядке: Program MinChislo; Var A, I, Min : Integer; Begin Min:=100; For I:=1 to 10 do Begin Write('Vvedite chislo '); Readln(A); If A < Min then Min:=A; end; Writeln('MIN=',Min); end.
Логотип SimpleЦДЗ

Похожие

Задание

Расставьте операторы программы нахождения минимального числа в правильном порядке:

  • Program MinChislo;
  • Var A, I, Min : Integer;
  • Begin
  • Min:=100;
  • For I:=1 to 10 do
  • Begin
  • Write\('Vvedite chislo '\);
  • Readln\(A\);
  • If A < Min then Min:=A;
  • end;
  • Writeln\('MIN=',Min\);
  • end.

Тот же тест