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

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.