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

Pascal

var a,b: array of integer;

i,k,s1,s2: integer;

begin

s1:=0;

s2:=1;

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

readln(k);

setlength(a,k);

setlength(b,k);

for i:=0 to k-1 do

begin

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

readln(a[i]);

if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];

end;

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

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

writeln;

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

for i:=0 to k-1 do

begin

if a[i]>0 then b[i]:=s2 else b[i]:=s1;

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

end;

end.