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

Question

Информатика

Арсеньюшка

5 июня, 13:55

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

+5

Ответы (1)

Знаете ответ?

Леда · Answer 1

Var i, min, num: integer;

begin

readln (min) ;

for i : = 1 to 19 do

begin

readln (num) ;

if (num < min) then

min : = num;

end;

writeln (num) ;

end.