Дан целочисленный массив из 20 элементов, все элементы которого - целые числа в интервале от - 1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет, нужно вывести сообщение "таких чисел нет"

program zz1;

const n = 20; / /задаем количество элементов в массиве

var i, min, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (2001) - 1000;

for i:=1 to n do / / выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

min:=100000;

for i:=1 to n do / / находим минимальный элемент

if ((m[i] mod 2 = 1) or (m[i] mod 2 = - 1)) and (m[i] mod 5 = 0) then if m[i] < min then min:=m[i];

if min = 100000 then writeln (' таких чисел нет ') / / выводим ответ

else write (' найденный минимальный элемент = ', min);

end.