Дана действительная матрица размера N ** M элементов. Найти номера строк матрицы, где все...

Question

Дана действительная матрица размера N на M элементов. Найти номера строк матрицы, где все элементы различны. Delphi срочно помогите!

Answer 1

Var mas:array [1..100, 1..100] of Integer;
    n, m, i, j, k, ok:Integer;
begin
 write("Введите n и m: ");
 readln(n, m);
 for i:=1 to n do
  for j:=1 to m do
   read(mas[i,j]);
 for i:=1 to n do
 for j:=i+1 to n do
  begin
   ok:=1;
   for k:=1 to m do
    if mas[i,k]=mas[j,k]
    then
     begin
      ok:=0;
      break;
     end;
   if (ok=1)
   then
    writeln(i, j:3);
  end;
end.