program p1;

var A:array[1..100] of integer; {переменная массива }
i,n:integer;{переменная цикла и размера массива}
countPOSIT,countNEG:integer;

begin
write ('Vvedite razmer massiva A: '); {вывод на экран фразы }
readln (n); {считываем с клавы размер массива}

for i:=1 to n do begin
write ('A[',i,']='); readln (A[i]); end;{ считываем с клавы элементы массива }

write ('Vot vvedennyy vami massiv A: '); {вывод на экран фразы }
for i:=1 to n do write (A[i],' '); {вывод на экран элементов массива }
writeln;

countPOSIT:=0;countNEG:=0; {обнуляем переменные кол-ва }

for i:=1 to n do {циклом идём по массиву }
if A[i]<0 then
inc(countPOSIT) {+1 для положительных}
else
inc(countNEG); {+1 для отрицательных}

if countNEG>countPOSIT then {Если больше отрицательных }
begin
for i:=1 to n do
if A[i]>0 then A[i]:=0 {то положительные элементы заменяются на нули}
end
else {В противном случае }
begin
for i:=1 to n do
if A[i]<0 then A[i]:=0 {то отрицательные элементы заменяются на нули}
end;


write ('Vot preobrazovannyi massiv A: '); {вывод на экран фразы }
for i:=1 to n do write (A[i],' '); {вывод на экран элементов массива }

readln;
end.