program z1;
var a,pp,po:real;
i:integer;
begin
pp:=1;
po:=1;
for i:=1 to 10 do
begin
write ('Введите число: ');
read (a);
if a>0 then pp:=pp*a;
if a<0 then po:=po*a
end;
writeln ('Произведение положительных: ',pp);
writeln ('Произведение отрицательных: ',po)
end.
Объяснение:
Начальные произведения равны 1
Цикл с параметром:
1) ввод числа
2) если число положительное, то умножаем число на произведение положительных чисел
3) если число отрицательное, то умножаем число на произведение отрицательных чисел
Вывод произведений
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.