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

Заполните массив с клавиатуры целыми числами и найдите значение минимального элемента массива. Входные данные: в первой строке целое число 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]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы