Заполнить случайным образом массив из 10 целых чисел,подсчитать сколько элементов в массиве является четными числами.
ОЧЕНЬ СРОЧНО,ПРОШУ ПОМОГИТЕ!!!!

Ответ учителя по предмету Информатика

1 способ:

const n=10; 

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

i,k:integer; 

begin

Randomize;

writeln(‘Массив A:’);

for i:=1 to n do

 begin

 a[i]:=random(51);

 write(a[i]:4);

 end;

writeln;

k:=0;

for i:=1 to n do

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

writeln(‘k = ‘,k);

end.

Пример:

Массив A:
 46 25 6 30 10 2 47 3 37 10
k = 6

2 способ:
begin
var a:=ArrRandom(10,1,50).Println;
Writeln(‘k=’,a.Where(x->x mod 2=0).Count);
end.

Пример:
25 35 2 38 39 5 8 31 11 12
k=4