Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
Var i, min, num: integer;
begin
readln(min);
for i := 1 to 19 do
  begin
    readln(num);
    if (num lt; min) then
      min := num;
  end;
writeln(num);
end.
63
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам