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.

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

Question

Информатика

Купава

23 декабря, 22:53

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.

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

+4

Ответы (1)

Знаете ответ на вопрос?

Зинаида · Answer 1

Во-первых, нельзя называть программу и переменную одним именем, а лучше вообще не пользоваться program. Во-вторых, максимально возможное из целых положительных integer=2147483647