Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [–2; 2] и находит произведение ненулевых элементов. PASCAL Заранее
Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [–2; 2] и находит произведение ненулевых элементов. PASCAL Заранее
##
var a := ArrRandom(10, -2, 2);
a.Println;
a.Where(t -> t <> 0).Product.Print