tasks a-s

Task/Remove-duplicate-elements/Delphi/remove-duplicate-elements.delphi

@@ -0,0 +1,24 @@
+program RemoveDuplicateElements;
+
+{$APPTYPE CONSOLE}
+
+uses Generics.Collections;
+
+var
+  i: Integer;
+  lIntegerList: TList<Integer>;
+const
+  INT_ARRAY: array[1..7] of Integer = (1, 2, 2, 3, 4, 5, 5);
+begin
+  lIntegerList := TList<Integer>.Create;
+  try
+  for i in INT_ARRAY do
+    if not lIntegerList.Contains(i) then
+      lIntegerList.Add(i);
+
+  for i in lIntegerList do
+    Writeln(i);
+  finally
+    lIntegerList.Free;
+  end;
+end.