Вычислить среднее положительных элементов с четными индексами и произведение отрицательных с нечетными

const n=25;
var a:array[1..n] of integer;
i,c:integer;
p:longint;
arifm:real;
BEGIN
p:=1;
c:=0;
arifm:=0;
For i:=1 to n do a[i]:=Random(50)-25;
For i:=1 to n do Write (a[i],' ');
For i:=1 to n do begin
  IF (a[i]>0) and (i mod 2 = 0) THEN begin
                                 inc(c);
                                 arifm:=arifm+a[i];
                                 end;
  IF (a[i]<0) and (i mod 2 <> 0) THEN p:=p*a[i];
end;
arifm:=arifm/c;
Writeln;
Writeln (arifm);
Writeln (p);
END.

const n=25;
var
  d: array [1..n] of Integer;
  i, s, cs, cp: Integer;
  p: Longint;
begin
  Randomize;
  Write('D ='); p:=1; {s:=0; cp:=0; cs:=0;}
  for i:=1 to n do begin
   d[i]:=-20+Random(41); Write(' ',d[i]);
   if Odd(i) then
     if d[i]<0 then begin
       p:=p*d[i]; Inc(cp);
     end else
   else
     if d[i]>0 then begin
       s:=s+d[i]; Inc(cs);
     end;
  end;
  Write('Произведение отрицательных с нечетными индексами: ');
  if cp=0 then WriteLn('<нет>') else WriteLn(p);
  Write('Среднее арифметическое положительных с четными индексами: ');
  if cs=0 then WriteLn('<нет>') else WriteLn(s/cs:0:2);
end.

const n=25;
var
  d: Integer;
  i, s, cs, cp: Integer;
  p: Longint;
begin
  Randomize;
  Write('D ='); p:=1; {s:=0; cp:=0; cs:=0;}
  for i:=1 to n do begin
   d:=-20+Random(41); Write(' ',d);
   if Odd(i) then
     if d<0 then begin
       p:=p*d; Inc(cp);
     end else
   else
     if d>0 then begin
       s:=s+d; Inc(cs);
     end;
  end;
  Write('Произведение отрицательных с нечетными индексами: ');
  if cp=0 then WriteLn('<нет>') else WriteLn(p);
  Write('Среднее арифметическое положительных с четными индексами: ');
  if cs=0 then WriteLn('<нет>') else WriteLn(s/cs:0:2);
end.