• Дано n чисел найдите минимальное из них

Ответы 1

  • uses crt;var x,i,n,min;integer;beginreadln(n);read(x);min:x;for i:1 to n-1 dobeginreadln(x);if min > x then min:x;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years