Cоставить программу записи в массив B номеров четных элементов массива A.

Как можно проще, пожалуйста

Вопрос школьника по предмету Информатика

Cоставить программу записи в массив B номеров четных элементов массива A.

Как можно проще, пожалуйста

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

Const

   N = 13;

Var

   A,B:array[1..N] of integer;

   i,j:integer;

Begin

j:=0;

Write(‘Массив A(‘,N,’):’);

For i:= 1 to N do

    Begin

    A[i]:=random(N);

    Write(‘ ‘,A[i]);

    if A[i] mod 2 = 0 then

       Begin

       j:=j+1;

       B[j]:=i;

       End;

    End;

WriteLn;

Write(‘Массив B(‘,j,’):’);

For i:= 1 to j do

    Write(‘ ‘,B[i])

End.

Пример работы программы:

Массив A(13): 1 11 9 11 12 2 6 12 0 10 8 11 10

Массив B(8): 5 6 7 8 9 10 11 13