30
составить программу нахождения произведения значений элементов массива состоящего из 10 целых чисел. значение элементов массива заданы с формулы a[i]: = i*i-1

0

На PascalABC.NET:

begin

 ArrGen(10, i -> i * i - 1, 1).Product.Println;

end.

Писать программу по хорошему смысла нет. При i =1 получаем a[1] = 0 и все дальнейшие умножения от 0 не будут отличаться.