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

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

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

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

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

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

Question

Информатика

Има

29 октября, 16:12

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

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

в первой строке целое число 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.