Question

How to remove duplicates from an array in Pascal

Answer 1

program RemoveDuplicatesAndPrintProgram;

var
  arr: array[1..17] of Integer;
  uniqueArr: array[1..17] of Integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  size, i, j, uniqueCount: Integer;
  found: Boolean;

begin
  size := 17; // Number of elements in the array
  arr[1] := 1; arr[2] := 3; arr[3] := 4; arr[4] := 3; arr[5] := 3; 
  arr[6] := 4; arr[7] := 1; arr[8] := 1; arr[9] := 5; arr[10] := 5; 
  arr[11] := 6; arr[12] := 7; arr[13] := 8; arr[14] := 8; arr[15] := 8; 
  arr[16] := 8; arr[17] := 9;
  
  uniqueCount := 0;
  
  for i := 1 to size do
  begin
    found := False;
    for j := 1 to uniqueCount do
    begin
      if arr[i] = uniqueArr[j] then
      begin
        found := True;
        Break;
      end;
    end;
    if not found then
    begin
      Inc(uniqueCount);
      uniqueArr[uniqueCount] := arr[i];
    end;
  end;
  
  for i := 1 to uniqueCount do
    Write(uniqueArr[i], ', ');
  WriteLn;
end.



(*
run:

1, 3, 4, 5, 6, 7, 8, 9, 

*)

 

70+ SQL courses for beginners and professionals