Написать программу: найти минимальный среди положительных элементов массива. Интервал: от - 20 до 150

var

i, min, n : integer; / / объявляем переменные целочисленного типа.

arr : array of integer; / / объявляем массив.

Begin

writeln ('Введите размерность массива:'); / / вывод строки на экран.

read (n); / / считываем размерность массива.

setlength (arr, n); / / выделяем память под массив.

for i: = 0 to (n-1) do / / начало цикла.

begin

arr[i] : = random (-20, 150); / / заполняем элемент массива числом из диапазона - 20; 150.

if (i = 0) then min : = arr[i]; / / считаем первый элемент - минимальным.

if (arr[i] > 0) then / / если элемент положительный.

begin

if (arr[i] < min) then min : = arr[i]; / / сравниваем элемент с минимумом.

end;

end;

writeln ('Минимальный среди положительных элементов массива равен: ', min);

End.