Программа в паскале:
в массиве из n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.

for i:=1 to n do

раз массив уже дан, то:

...

var count_pl, count_min, sum_pl, sum_min: integer;

begin

count_pl:=0;

count_min:=0;

sum_pl:=0;

sum_min:=0;

for i:=1 to n do begin

if a[i] > 0 then begin

count_pl:= coun_pl + 1;

sum_pl:= sum_pl + a[i];

end

else begin

count_min:= count_min + 1;

sum_min:= sum_min + a[i];

end;

end;

writeln('Среднее положительное: ', sum_pl/count_pl);

writeln('Среднее отрицательное: ', sum_min/count_min);

end.