Дt
коносль лучше на сях
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
str:=TStringList.Create;
for I := 1 to 20 do
str.Add(inttostr(random(20)));
str2:=TStringList.Create;
str2.Duplicates:=dupError;
str2.Sorted:=True;
for I := 1 to 20 do
try
str2.Add(str[i-1])
except
showmessage('это значение уже есть:'+ str[i])
end;
memo1.Text:=str.Text;
end;
