Ответы и объяснения

2013-09-21T11:42:28+04:00
For i := 0  to 1000 do if (odd(a[ i ])) then begin s := s + a[ i ]; inc(c); end;
writeln('Среднее ', s / c);