Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел

var a: array[1 ... 100] of integer;

i, sum, n: integer;

begin

randomize;

writeln ('Введите количество элементов массива');

readln (n);

for i:=1 to n do a[i]:=random (100);

for i:=1 to n do if a[i] div 2 > 0 then sum:=sum+a[i];

writeln ('Сумма нечётных элементов массива равна ', sum);

end.