(Pascal) Задача:
Дан массив из 8 элементов, с помощью датчика случайных чисел посчитать количество нечётных элементов.

СПАСИБОЧКИ, ТЫ СУПЕР!

:)

Program enot;Var a: array [1..8] of integer; i,k:integer;begink:=0;for i:= 1 to 8 dobegin a[i]:= random(1000); if a[i] mod 2 <>0 then k:=k+1; end; write(k); end.