Ответ:

Звони +380933132270

Объяснение:

var

a:array[1..100] of integer;

i,n,col,proiz:integer;

begin

read(n);

proiz:=0;

col:=0;

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i]>0 then

proiz:=proiz*a[i];

for i:=1 to n do

if a[i]|<>0 then

col:=col+1;

for i:=1 to n do

write(proiz,' ',col);

end.