Напишите программу пожалуйста:Дан массив F, C - целых 30 чисел .

Отыскать производные чисел? Производная от хоть какого числа одинакова нулю))

не производные, а произведение ошибся.

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(30, -100, 100);
    Println(a);
    Writeln('Произведение положительных ', a.Where(x -gt; x gt; 0).Aggregate(1, (x, y)-gt; x * y));
    Writeln('Произведение отрицательных ', a.Where(x -gt; x lt; 0).Aggregate(1, (x, y)-gt; x * y));
end.