Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до 10.

Question

Информатика

Хриса

26 февраля, 08:44

Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до 10.

+3

Ответы (1)

Знаете ответ на вопрос?

Ванюта · Answer 1

Var

a: array[1 ... 1000] of integer;

i: integer;

chet: integer;

nechet: integer;

begin

i:=1;

Randomize;

while (i<=1000) do

begin

a[i] : = random (10) ;

if (a[i] mod 2 = 0) then

chet:=chet+1

else nechet: = nechet + 1;

i : = i + 1;

end;

writeln ('четных чисел: ', chet,' ','Нечетных чисел: ', nechet)

end.