5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write('Vvedi chislo '); Readln(A); If A ...
5. Нахождение минимального числа из введенных.
Program MIN;
Var
A, I : Integer;
Min : Integer;
Begin
Min:=32767;
For I:=1 to 10 do
Begin
Write('Vvedi chislo ');
Readln(A);
If A < Min then Min:=A;
end;
Writeln('MIN=',Min);
Readln;
end.
Простая программа демонстрирует цикл со счетчиком, и работу условных операторов. В начале анализа в качестве минимального задано максимально возможное из целых положительных целочисленного типа.
Гость
Ответ(ы) на вопрос:
ГостьВо-первых, нельзя называть программу и переменную одним именем, а лучше вообще не пользоваться program. Во-вторых, максимально возможное из целых положительных integer=2147483647
Не нашли ответ?
Похожие вопросы