Question

На вход подаются 20 чисел.Найдите наименьшее из них

Answer 1

var i,a,m:integer;

begin

write ('Введите число: ');

readln (a);

m:=a;

for i:=1 to 19 do

begin

write ('Введите число: ');

readln (a);

if a<m then m:=a

end;

writeln ('Наименьшее: ',m)

end.

Answer 2

Хорошо, я могу помочь вам найти наименьшее число из 20 введенных чисел. Пожалуйста, предоставьте эти числа, чтобы я мог выполнить поиск.