Массив из 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.