Нужно найти минимальное число из массива и вывести его на экран. Массив A: array [1..5] of integer;

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal для нахождения минимального числа в массиве и вывода его на экран:

program MinNumberInArray;
var
A: array [1..5] of integer;
i, minNum: integer;
begin
// заполнение массива случайными числами
randomize;
for i := 1 to 5 do
begin
A[i] := random(100);
write(A[i], ' ');
end;
// поиск минимального числа в массиве
minNum := A[1];
for i := 2 to 5 do
begin
if A[i] < minNum then
minNum := A[i];
end;
// вывод минимального числа на экран
writeln;
writeln('Минимальное число в массиве: ', minNum);
end.

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