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.