Question

How to print the distinct elements of an array in Pascal

Answer 1

program UniqueElements;

var
  arr: array[0..10] of Integer = (3, 5, 9, 1, 7, 8, 1, 9, 0, 3, 9);
  unique: array of Integer;
  i, j, count, len: Integer;
  isUnique: Boolean;
begin
  len := Length(arr);
  SetLength(unique, 0);

  for i := 0 to len - 1 do
  begin
    count := 0;
    for j := 0 to len - 1 do
    begin
      if arr[i] = arr[j] then
        Inc(count);
    end;

    if count = 1 then
    begin
      SetLength(unique, Length(unique) + 1);
      unique[High(unique)] := arr[i];
    end;
  end;

  Write('Unique elements: ');
  for i := 0 to High(unique) do
    Write(unique[i], ' ');
  WriteLn;
end.


   
(*
run:
  
Unique elements: 5 7 8 0 
  
*)

 

70+ SQL courses for beginners and professionals