Program TwoDimArray;

var
arr: array[1..7, 1..8] of integer;
i, j, count, product: integer;

begin

count := 0;
product := 1;

Randomize;

for i := 1 to 7 do
for j := 1 to 8 do
begin
arr[i, j] := Random(21) - 10; // заполнение массива случайными числами от -10 до 10
if arr[i, j] <> 0 then
begin
count := count + 1; // увеличиваем счетчик ненулевых элементов
product := product * arr[i, j]; // умножаем произведение на текущий элемент
end;
end;

writeln('Количество ненулевых элементов: ', count);
writeln('Произведение ненулевых элементов: ', product);

end.