Найти среднее арифметическое чисел стоящих ** нечетных местах и подсчитать количество...

Question

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

Answer 1

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.