Задача на двумерные массивы.

[patisson74]

Люди! Помогите с задачкой!
Дана матрица целых чисел, размером m x n. Определить количество её строк, все элементы которых разные.

[NSvirus]

показывайте наработки.

[Orakul89]

var m,n,i,j,k,z:integer;
    a:array[1..20,1..20]of integer;
    r:boolean;
begin
 writeln('Введите m, n');
 readln(m,n);
 writeln('Введите массив');
 for i:=1 to n do
 for j:=1 to m do
  read(a[i,j]);
 writeln;
 k:=0;
 for i:=1 to n do
  begin
   r:=true;
   for z:=1 to m do
     begin
      for j:=1 to m do
       if (a[i,z]<>a[i,j]) and (r<>false) then r:=true
        else if z<>j then r:=false;
     end;
   if r=true then k:=k+1;
  end;
  writeln('количество строк',k)
  readln(i);
end.

Думаю где-то так

[Ti_pain)]

col:=0;
for i:=1 to n do begin
flag:=true;

for k:=1 to m-1 do
for j:=k+1 to m do
if a[i,j]=a[i,k] then flag:=false;


if flag then col:=col+1;
end;

мне кажеться так токо не проверял((
col-число неповторяемых строк)

[patisson74]

Попробовал Ваш код, вроде все работает, ОГРОМНОЕ СПАСИБО!!!
Вы знаете, так тяжело дается обучение Паскалю по электронным книгам! Ну я надеюсь, что когда-то и я смогу чем-то помогать таким же студентам, как и сам.