[any] Pascal: (без хранения введённых чисел => "эффективная")

• var a, i, x: integer;
• begin
•  for i := 1 to 6 do
•  begin
•    read(a);
•    if a>0 then x := x + 1
•    else if a<0 then x := x - 1
•  end;
•  if x>0 then write('Больше положительных')
•  else if x<0 then write('Больше отрицательных')
•  else write('Одинаково')
• end.

PascalABC.NET: (с хранением введённых чисел в массиве)

• ##
• var a := ReadArrInteger(6);
• var x := a.Sum(x -> x>0 ? 1 : -1);
• if x=0 then Write('Одинаково')
• else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы: