9. Дан массив случайных чисел в диапазоне от -30 до 30 в количестве 35 штук. Найти количество нечётных отрицательных элементов массива.​

Program C4;

const

N = 35;

var

a: array[1..N] of integer;

i,s:integer;

begin

for i := 1 to N do begin

readln( a[i] );

end;

for i := 1 to N do begin

if (a[i] < 0 ) and ( abs(a[i]) mod 2 = 1 ) then

s:= s+1;

end;

writeln(s);

end.

Объяснение: Только я хз, что значит “случайных чисел”, если это значит, что нужно использовать рандом, то программа выше не подойдет, но, если это значит, что числа вводятся рандомные, то должно подойти. Попробуй сам запустить программу в паскале