Код:
var
b,a:array [1..30] of integer;
i,j:integer;
begin
randomize;
writeln ('Массив A:');
j:=1;
for i:=1 to 30 do begin
a[i]:=random(99)+1;
if a[i] mod 2 = 0 then begin
b[j]:=a[i];
inc(j);
end;
write (a[i]:3);
end;
writeln;
writeln ('Массив B:');
for i:=1 to j-1 do
write (b[i]:3);
end.