Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. программа в паскале

158

253

Посмотреть ответы 2

Ответы на вопрос:

Йома

Информатика

4,4(94 оценок)

Var i ,min : integer; a : array [ 1.. 20 ] of integer; begin for i : = 1 to 20 do begin write ( 'введи число №' ,i , ': ' ); readln (a [i ] ); end; min : =a [ 1 ]; for i : = 2 to 20 do if a [i ]< min then min : =a [i ]; writeln ( 'минимальное: ' ,min ) end.