Подсчитать сумму с четными индексами и среднее арифметическое с нечетными индексами

const
  n = 10;
 
var
  a: array [1..n] of real;
  sr, sum: real;
  i, kc: integer;
 
begin
  randomize;
  sum := 0;
  sr := 0;
  kc := 0;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random * n;
    write(a[i]:8:2);
    if not odd(i) then
      sum := sum + a[i]
    else
    begin
      sr := sr + a[i];
      inc(kc);
    end;
  end;
  writeln;
  writeln('Summa: ', sum:8:2);  
  writeln('Average: ', sr / kc:8:2);    
end.

const
  n = 10;
var
  a: array [1..n] of integer;
  sr: real;
  sum,i, kc: integer;
 
begin
  randomize;
  sum := 0;
  sr := 0;
  kc := 0;
  for i := 1 to n do
   begin
    a[i] := -n div 2 + random(n)+1;
    write(a[i]:4);
    if not odd(i) then sum := sum + a[i]
    else
     begin
      sr := sr + a[i];
      inc(kc);
     end;
  end;
  writeln;
  writeln('Summa: ', sum);
  writeln('Average: ', sr / kc:0:2);
end.

var
  s, k: array [Boolean] of Integer;
...
  for i:=1 to n do begin
    Inc(s[Odd(i)],a[i]); Inc(k[Odd(i)]);
  end;
  WriteLn('SUM ',s[False],' AVG ',s[True]/k[True]);