Question

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

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.