Question

How to get the difference between two arrays in Pascal

Answer 1

program GetDifference;
uses
  SysUtils;

var
  array1: array[1..7] of string = ('c#', 'c', 'c++', 'java', 'python', 'vb', 'pascal');
  array2: array[1..6] of string = ('rust', 'c', 'c++', 'go', 'python', 'nodejs');
  result: string;
  i, j: integer;
  found: boolean;

begin
  result := '';
  for i := 1 to Length(array2) do
  begin
    found := false;
    for j := 1 to Length(array1) do
    begin
      if array2[i] = array1[j] then
      begin
        found := true;
        break;
      end;
    end;
    if not found then
    begin
      if result <> '' then
        result := result + ' ';
      result := result + array2[i];
    end;
  end;

  writeln(result);
end.



(*
run:

rust go nodejs

*)

 

70+ SQL courses for beginners and professionals