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

Тема: работа с одномерными массивами.

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.