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

Паскаль ABCnet

Question

Информатика

Айлуна

13 апреля, 14:39

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

Паскаль ABCnet

+1

Ответы (1)

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

Калонимос · Answer 1

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

i, k1, k2:integer;

begin

for i: = 1 to 10 do

a[i]: = Random (20,100) ;

writeln (a) ;

for i:=1 to 10 do

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

else k2:=k2+1;

writeln ('Чётных элементов: ', k1) ;

writeln ('Нечётных элементов: ', k2)

end.

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

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

Паскаль ABCnet