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

Question

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

Comments

ограничения есть по рандом?

---

нету

Answer 1

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

Comments

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

---

:)