Напишите программу, которая заполняет массив из 16 элементов случайными числами на отрезке [-4;4] находит произведение ненулевых элементов.
СРОЧНО! ДАЮ 50 БАЛЛОВ!

program fpro;vara : array[1..16] of integer;i,p : integer;beginrandomize;p:=1;for i :=1 to 16 do begin  a[i] := random(-4,4);  if (a[i] <> 0) then p:=p* a[i];  write(a[i]+' ');end;writeln();write('Произведение = ', p);end.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(16,-4,4); a.Println;  a.Where(t->t<>0).Aggregate(1,(i,j)->i*j).Printlnend.Пример-2 -1 1 -3 -2 2 0 -4 0 2 4 -2 -4 4 3 -173728