Заполните массив случайными числами в диапазоне 20 ... 100 и подсчитайте отдельно число элементов с чётными и нечётными значениями

Question

Информатика

Вараска

19 августа, 23:45

Заполните массив случайными числами в диапазоне 20 ... 100 и подсчитайте отдельно число элементов с чётными и нечётными значениями

+2

Ответы (1)

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

Альверт · Answer 1

var a:array [1 ... 10] of integer;

i, k1, k2:integer;

begin

for i: = 1 to 10 do

a[i]: = Random (81) + 20;

writeln (a) ;

for i:=1 to 10 do

if a[i] mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

writeln ('Количество чётных элементов: ', k2) ;

writeln ('Количество не чётных элементов: ', k1)

end.