Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi/Pascal] Одномерный массив

Автор: Irvine 25.3.2007, 21:55

Доброго времени суток, помогите с такой легкой задачкой.
Нужно из N-ого количества случайных чисел массива , вывести на экран - те , которые будут повторяться.
Заранее благодарен!

Автор: koder 26.3.2007, 12:58

Использую Tlist т.е. ассоциативные массивы.
к примеру

Код


...
const n = 10;
var
  a: TStringList;
  i: Integer;
 Mas: Array[1..n] of Integer;
begin
..
{Заполняем массив Mas}
..
   a := TStringList.Create;
   for i := 1 to n do
     if a.IndexOf(IntToStr(Mas[i])) = -1 then
       a.Add(IntToStr(Mas[i]))
     else 
       Showmessage("Повторный элемент: " +IntToStr(Mas[i]));

   a.free;
end;
...