• Заполните массив с клавиатуры целыми числами и найдите значение минимального элемента массива.

    Входные данные:
    в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве. Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.

    Выходные данные:
    значение минимального элемента массива

     

    (Написать программу на Паскале)

Ответы 1

  • var N,i,min:longint;a:array [1..100] of longint;begin Read(N); For i:=1 to N do Read(a[i]);min:=100000;For i:=1 to N do  if a[i]<min then min:=a[i];Write(min);end.
    • Автор:

      dashxxsd
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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