Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Поиск минимального элемента массива .
Введите в одной строке элементы массива(5 целых чисел) и нажмите <Enter>.
_>23 0 45-5 12
Минимальный элемент массива:-5
var
n, i, min, k: integer;
begin
WriteLn('Поиск минимального элемента массива.');
Write('Введите количество чисел N = ');
ReadLn(n);
WriteLn('Введите в одной строке элементы массива (', n, ' целых чисел) и нажмите <Enter>.');
for i := 1 to n do
begin
Read(k);
if i = 1 then if k < min then k := min else min := k else if k < min then min := k;
end;
WriteLn('Минимальный элемент массива: ', min);
end.
Объяснение: