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

  • 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.