Ответ:

Объяснение:

Сразу с заполнением массива числами.

var mn,mp,mc:integer;

mas:array [-10..10] of integer;

begin

 for var i:=-10 to 10 do begin

   readln (mas[i]);

   if mas[i]=0 then

     mn:=mn+1;

   if mas[i]<0 then

     mc:=mc+1;

   if mas[i]>0 then

     mp:=mp+1;

 end;

 writeln ('Положительных элементов: ',mp);

 writeln ('Отрицательных элементов: ',mc4);

 writeln ('Нулевых элементов: ',mn);

end.