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

Question

Информатика

Линка

19 сентября, 21:29

Выбрать наименьшее значение из 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.