из Паскаля в С++

[fkty]

не получается переделать этот код в С++

Program P5;
uses crt;
const N=10;
Type
   vector=array [1..N] of integer;
   vector2=array [1..2*N] of integer;
Var
  t:integer;
  absent:boolean;
  x:vector;
  y:vector;
  z:vector2;
  i:byte;
  k:integer;
  j:integer;
begin
  ClrScr;
  randomize;
  writeln ('массив x:');
  for i:=1 to N do
  begin

    repeat
      absent:=true;
      t:=random(20);
      for j:=1 to i-1 do
        if x[j] = t then
          absent:=false;
    until absent;

    x[i]:=t;
    write(x[i]:4);
  end;
  writeln;

  writeln ('массив y:');
  for i:=1 to N do
  begin

    repeat
      absent:=true;
      t:=random(20);
      for j:=1 to i-1 do
        if y[j] = t then
          absent:=false;
    until absent;

    y[i]:=t;
    write(y[i]:4);
  end;
  writeln;

  k:=1;
  for i:=1 to N do
    for j:=1 to N do
    begin
      if x[i]=y[j] then
      begin
        z[k]:=x[i];
        k:=k+1;
      end;
    end;

 writeln('массив z:');
 for i:=1 to k-1 do
   write(z[i]:4);

 writeln;
 if (x[i]<>y[j]) and (k=1) then
   writeln('пересечения нет');

 readkey;
end.

[Bugrimov]

Что именно не получается....??? Циклы, генераторы случайных чисел...

[fkty]

вот эта часть не получается...
repeat
absent:=true;
t:=random(20);
for j:=1 to i-1 do
if x[j] = t then
absent:=false;
until absent;

[Shad0wF1rst]

Сообщение от fkty

вот эта часть не получается...
repeat
absent:=true;
t:=random(20);
for j:=1 to i-1 do
if x[j] = t then
absent:=false;
until absent;

это примерно будет выглядеть так:
bool flag = true;
while (flag) {
for (int j = 0; j < i - 1; j++)
if (x[j] == t) flag = false;
}