Найти количество нечетных чисел ,образованных рандомно из интервала -30...30 ))Плиииз...

Question

Найти количество нечетных чисел ,образованных рандомно из интервала -30...30 ))Плиииз ,help !!

Answer 1

Var
i,g:integer;
mas:array [1..10] of integer ;
begin
randomize;
for i:=1 to 10 do
mas[i]:=random(60)-30;
for i:=1 to 10 do
if odd(mas[i]) then
inc(g);
writeln('количество нечетных элементов',g);
end.