Question

Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [–2; 2] и находит произведение ненулевых элементов.
PASCAL
Заранее спасибо.

Answer 1

##

var a := ArrRandom(10, -2, 2);

a.Println;

a.Where(t -> t <> 0).Product.Print