Написать программу, состоящую из 30 чисел, числа понимают значения от -500 до 500, программа находит минимальное значение среди нечетных элементов массива, которые кратны 5.

const   n = 30; var   x: array[1..n] of integer;   i, t, min: integer; begin   Randomize;   Writeln('Элементы массива');   min:=32767;   for i := 1 to n do   begin     t := Random(1001)-500;     x[i] := t;     Write(t:5);     if Odd(i) and (t mod 5 = 0) and (min>t) then min:=t   end;   Writeln;   Writeln('Минимальный нечетный элемент, кратный 5, равен ',min) end. Тестовое решение: Элементы массива   -64  438 -290  358 -424  234 -444  -17  171  -57 -373 -279  242 -403 -262   34 -488  365  341 -468  163 -276  193 -140  126 -466 -236  -34  350 -369 Минимальный нечетный элемент, кратный 5, равен -290