Задание:
Заполните массив с клавиатуры целыми числами и найдите значение минимального элементамассива. Входные данные: в первой строке целое число n (0 < n ≤ 100) — кол-во элементов в массиве. Во второй строке целые числа Х1, Х2,… , Хn разделенные пробелом (числа по модулю не превосходят 32000) — значения элементов массива. Выходные данные: значение минимального элемента массива
Решение:
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] Знаете другой ответ?