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

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.