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

var b:array [1..100] of integer; s,i:integer;beginfor i:=1 to 100 dobeginb[i]:=random(-100,100);if odd(b[i]) then s:=s+b[i];end;write(s);end.