Переписать в массив А повторяющиеся элементы массива В

[werg]

Переписать в массив А повторяющиеся элементы массива В

Дан массив В(15).Переписать в массив А повторяющиеся элементы массива В

 

[werg]

Дан массив В(15).Переписать в массив А повторяющиеся элементы массива В

нужно в Паскале

 

[Vladimir_S]

Дан массив В(15).Переписать в массив А повторяющиеся элементы массива В

нужно в Паскале

Нужно так нужно...

Var
 A,B:Array[1..15] of Byte;
 S:Set of Byte;
 i,j,N:Byte;
Begin
 Randomize;
 For i:=1 to 15 do
  begin
   B[i]:=Random(10);
   Write(B[i]:4);
  end;
 Writeln;
 S:=[];
 N:=0;
 For i:=1 to 14 do
  For j:=i+1 to 15 do
   If (B[j]=B[i]) and Not(B[i] in S) then
    begin
     S:=S+[B[i]];
     Inc(N);
     A[N]:=B[i];
    end;
 For i:=1 to N do Write(A[i]:4);
 Readln
End.