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

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

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

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

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