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

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] < c) then s += 1;   writeln(S); end.