Найти среднее арифметическое чисел стоящих на нечетных местах и подсчитать количество чисел меньших заданного С. Тема: работа с одномерными массивами.

var
  a: array [1..25] of integer;
  c, i, S: integer;

begin
  for i := 1 to 25 do
  begin
    a[i] := random(25);
    write(a[i], );
    if (a[i] mod 2 = 1) then
    begin
      S += a[i];
      c += 1;
     end;
  end;
  writeln();
  writeln(S / c, #13);
  readln(c);
  S := 0;
  for i := 1 to 25 do
    if (a[i]   writeln(S);
end.