Заполнить массив n элементов…

Const N=10; var i, j: byte; n1, n2: array [1… N] of integer; begin j: =1; for i: =1 to N do begin n1[i]: =random (100); writeln ('n1[', i, '] => ', n1[i]); end; writeln ('-'); for i: =1 to N do begin if (n1[i] mod 2=0) then begin n2[j]: =n1[i]; inc (j); n1[i]: =n1[i]*2; end; end; for i: =1 to N do writeln ('n1[', i, '] => ', n1[i]); for i: =1 to j do writeln ('n2[', i, '] => ', n2[i]); end. Если я правильно понял, то вот так=)