//PascalABC.NET v3.3 1633

const n = 15;

var arr: array [1..15] of integer;

begin

for var i:=1 to n do

 arr[i]:=random(-5,5);

write('Исходный массив: ');

arr.PrintLn(', ');

var countP:=0;

var countN:=0;

for var i:=1 to n do

 if arr[i] > 0 then

   countP += 1

 else

 if arr[i] < 0 then

 begin

   arr[i]:=Sqr(arr[i]);

   countN += 1;

 end;

writeln('Количество положительных элементов: '+countP);

writeln('Количество отрицательных элементов: '+countN);

write('Новый массив: ');

arr.PrintLn(', ');

end.