Введите с клавиатуры одномерный массив А(N), элементами которого являются
положительные и отрицательные целые числа. Подсчитайте произведение положительных
элементов этого массива и количество отрицательных. Сформируйте новый массив В(N) из
элементов массива А(N), в котором все элементы которые стоят на четных местах замените
на произведение положительных, а на нечетных – на количество отрицательных

хм, спасибо завтра посмотрим, но щас проверял, ввожу значение например дано 5 чисел ввожу их и все,дальше программа не считает

программа только считает

забыл прикрутить вывод перед writeln (s,' произведение положительных'); writeln (c,' кол-во отрицательных '); end. 

var a,b:array [1..1000] of integer;i,s,c,n:integer;beginwriteln('Введите кол-во чисел');readln(n);s:=1;c:=0;for i:=1 to n do beginwriteln('a[',i,'] = ');read(a[i]);if (a[i]>0)then s:=s*a[i];if(a[i]<0) then c:=c+1;end;for i:=1 to n do beginif(i mod 2 <>0) then a[i]:=celse a[i]:=s;end;end.