[erNesto]

помогите пожалуйста с програмой!) никак не получится всё слепить в одно целое... условие:
Заданная целочисленная матрица А (n, n), n <= 15. Разработать программу, которая находит и печатает номера тех строк, элементы в которых не повторяются. Если таких строк нет, то печатает сообщение об этом.

сколько не стараюсь, результатов ноль... то всё время пишет что все елементы не повторяются, то ващще набор чисел....
ответ должен выводится в компонент Edit... тоесть в нём должны быть перечислены все строки

если надо скину то что создавал, но мне стыдно)))

буду очень признателен!) на Вас надеюсь, т.к. сдесь уже не впервый раз нахожу ответы)))) СПАСИБО

[Bargest]

Код:

var fl:boolean;
...
for i:=0 to n-1 do
begin
 fl:=true;
 for j:=n-1 downto 1 do
 begin
  for k:=0 to j-1 do
    if a[i,j]=a[i,k] then
    begin
     fl:=false;
     break;
    end;
    if not fl then break;
 end;
   if fl then 
   begin
    //вывод массива
   end;
end;

[erNesto]

сейчас попробую, но всё выглядит оптимистично) Bargest, СПАСИБО ОГРОМНОЕ!!))))

[erNesto]

всё работает!!))) видели бы Вы меня щас!))))