Составе программу:
1)в линейном массиве найти произведение положительных чисел
2)в линейном массиве найти все отрицательные числа
Заранее спасибо !

program qq;const n=10var a:array[1..n] of integer;       i,p:integer;beginfor i:=1 to n do beginwriteln('Введите Элементы масивa a[',i,']'=);readln(a[i]);if a[i]>0 then p:=p*a[i];end;writeln('Произведение эл-ов массива =' ,p);writeln('отрицательные эл-ты');for i:=1 to n do if a[i]<0 then write(a[i],' ');readlnend.