Программирование в Паскаль "Массивы"

[levushka]

Bведите с клавиатуры одномерный массив A(n),элементами которого являются положительные и отрицательные числа .Cформируйте массив D(n)в которых на четных местах будет стоять количество отрицательных элементов массива A(n) ,а на нечетных-среднее арифметическое положительных элементов массива A(n).

[newerow1989]

const n=6;
var a:array[1..n] of integer;
    d:array[1..n] of real;
    i,o,c:integer;
    p:real;
begin
   For i:=1 to n do
      Readln(a[i]);
   o:=0;
   c:=0;
   p:=0;
   For i:=1 to n do
   begin
      If a[i]<0 then
         o:=o+1;
      If a[i]>0 then
      begin
         c:=c+1;
         p:=p+a[i];
      end;
   end;
   If c>0 then
      p:=p/c;
   For i:=1 to n do
      If i mod 2=0 then
         d[i]:=o else
         d[i]:=p;
   For i:=1 to n do
      Write(d[i]:3:5,'  ');
   Readln;
end.

Сойдет?