Отыскать творение положительных элементов массива и Количество ненулевых частей массива.

Ответ:

Звони +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]gt;0 then

proiz:=proiz*a[i];

for i:=1 to n do

if a[i]lt;gt;0 then

col:=col+1;

for i:=1 to n do

write(proiz,' ',col);

end.