Question

Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Поиск минимального элемента массива .
Введите в одной строке элементы массива(5 целых чисел) и нажмите <Enter>.
_>23 0 45-5 12
Минимальный элемент массива:-5​

Answer 1

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.

Объяснение: