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

Входные данные:

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

Выходные данные:

значение минимального элемента массива

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

Question

Информатика

Валя

5 марта, 21:21

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

Входные данные:

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

Выходные данные:

значение минимального элемента массива

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

+1

Ответы (1)

Знаешь ответ?

Фотиния · Answer 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]
Write (min);

end.