Массив из 10 элементов заполнить случайными числами и найти среднее арифметическое всех нечётных значений

program avrg;

var A: array [1 ... 10] of integer;

s, i:integer;

begin

randomize;

s:=0;

for i: = 1 to 10 do

begin

A[i]:=random (101); / / случайное число из интервала 1 ... 100

write (A[i]:4); / / вывод элементов массива

if a[i] mod 2 > 0 then s: = s + A[i]; / /сумма нечетных элементов

end;

writeln ();

writeln ('Среднее арифметическое нечетных значений: ', s / i)

end.