25 lines
433 B
ObjectPascal
25 lines
433 B
ObjectPascal
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.
|