Question

Люди, помогите срочно!

Не понимаю информатику 8 класса (тема массивы и их заполнение). Объясните плз, как решить задачу снизу:

Заполните массив рандомными числами в диапазоне [2,10] и подсчитайте количество чётных и нечётных.

Answer 1

Ответ:

const n=10;

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

k,i:integer;

begin

Randomize;

for i:=1 to n do begin

 a[i]:=random(9)+2;

 write(a[i],' ');

 end;

writeln;

k:=0;

for i:=1 to n do

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

writeln('Четных: ',k,'  нечётных: ',n-k);

end.

Пример:

2 2 4 7 9 10 9 4 5 4

Четных: 6 нечётных: 4

Объяснение:

вот отвеееет ......)))))///)/_+__/_(_+_+