Question

How to get the unique values of an array in Pascal

Answer 1

program UniqueValuesArray;

var
  arr: array[1..17] of Integer = (1, 2, 1, 1, 3, 3, 4, 4, 5, 5, 5, 5, 6, 7, 7, 8, 1);
  uniqueArr: array of Integer;
  i, j, count: Integer;
  isUnique: Boolean;

begin
  count := 0;
  SetLength(uniqueArr, Length(arr));

  for i := Low(arr) to High(arr) do
  begin
    isUnique := True;
    for j := 0 to count - 1 do
    begin
      if arr[i] = uniqueArr[j] then
      begin
        isUnique := False;
        Break;
      end;
    end;

    if isUnique then
    begin
      uniqueArr[count] := arr[i];
      Inc(count);
    end;
  end;

  SetLength(uniqueArr, count);

  for i := 0 to High(uniqueArr) do
  begin
    Write(uniqueArr[i], ' ');
  end;
  WriteLn;
end.



(*
run:

1 2 3 4 5 6 7 8 

*)

 

70+ SQL courses for beginners and professionals