Очень срочно! 50 баллов за ответ.
Задать массив генератором случайных чисел в диапазоне [-25;25]. Найти произведение отрицательных элементов массива и вывести на экран все нечетные элементы массива.

спасибо

достаточно кнопочки синей)

// PascalABC.Net 3.0, сборка 1052const  nn=100;var  i,n:integer;  a:array[1..nn] of integer;  p:real;begin  Write('Количество элементов в массиве: '); Read(n);  Writeln('Исходный массив');  for i:=1 to n do begin    a[i]:=Random(51)-25;    Write(a[i],' ')  end;  Writeln;  p:=1;  Writeln('Нечетные элементы:');  for i:=1 to n do begin    if a[i]<0 then p:=p*a[i];    if a[i] mod 2 <> 0 then Write(a[i],' ')  end;  Writeln;  Writeln('Произведение отрицательных элементов: ',p)end.Тестовое решение:Количество элементов в массиве: 20Исходный массив-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17 Нечетные элементы:-9 15 7 -3 19 -17 Произведение отрицательных элементов: -91371110400