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

var a,b: array of integer;

i,n,lo,ss: integer;

begin

lo:=0;

ss:=1;

write('Введите количество элементов массива');

readln(n);

setlength(a,n);

setlength(b,n);

for i:=0 to n-1 do

begin

write('Ввод данных для a[',i+1,']=');

readln(a[i]);

if a[i]<0 then inc(lo) else ss:=ss*a[i];

end;

writeln('Данные массива A:');

for i:=0 to n-1 do writeln('a[',i+1,'] = ',a[i]);

writeln;

writeln('Данные массива B:');

for i:=0 to n-1 do

begin

if odd(i+1) then b[i]:=lo else b[i]:=ss;

writeln('b[',i+1,'] = ',b[i]);

end;

end.