Дана целочисленная матрица m*n. Найти количество ее строк, все элементы которых различны.

[slovetskii]

дана целочисленная матрица m*n. Найти количество ее строк, все элементы которых различны. числа вводятся с клавиатуры. если можно цикл FOR

помогите пожалуйста решить! завтра сдавать лабу

[Stilet]

Написать код ввода матрицы конечно же не можешь?

[slovetskii]

Сообщение от Stilet

Написать код ввода матрицы конечно же не можешь?

Код я написал, не могу сделать так, чтобы правильно считало количество строк

[Serge_Bliznykov]

вы нам тут свой код напишите, будет повод для разговора/помощи...

[slovetskii]

uses crt;
var a:array[1..10,1..10] of integer;
i,j,m,n,x,s:integer;
begin
clrscr;
randomize;
write('Количество строк: ');
read(m);
write('Количество столбцов: ');
read(n);


for i:=1 to m do begin

writeln('Строка ',i,' : ');

for j:=1 to n do begin

write('Столбец ',j,' : ');

readln(a[i,j]);
end;
writeln;
end;

{for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(5);
write(a[i,j]:5);
end;
writeln;
end;
writeln;}

for i:=1 to m do begin
s:=0;
{if a[i,j]=a[i,j+1] then s:=0;}
for j:=1 to n do begin

if a[i,j]<>a[i,j+1] then s:=s+1 else s:=0;
end;
writeln;
end;
write('Количество строк: ',s);


readkey;
end.

[unbanned]

а если вот так...

const
  m = 5;
  n = 4;

var
  a: array [1..m, 1..n] of integer;
  f: boolean;
  count: integer;
  i, j, k: integer;

begin
  
  for i := 1 to m do 
  begin
    f := true;
    
    for j := 1 to n - 1 do     
      for k := j + 1 to n do
        if a[i,j] = a[i,k] then
          f := false;     
    
    if f then inc(count);    
  end;
  
end.

P.S. не проверял

[evg_m]

  for i:=1 to m do begin
    s:=0;
{    if a[i,j]=a[i,j+1] then s:=0;  }
// все элементы различны 
// надо сравнивать каждый с каждым (двойной цикл!!) j1 j2
//    различны значит НЕ найдется двух таких что они равны.
    ok:=true; //сначала считаем что это так
    for j1:=1 to n do begin 
      for j2:=1 to n do begin 
        if (j1<>j2) //это не мы сами
        and ( a[i,j1]=a[i,j2] ) then ok:=false; // и если найдем равные то изменим
      end;
    end;
    if ok then s:=s+1; //когда проверили ВСЕ пары элементов (после двойного цикла!) смотрим надо увеличить счетчик "правильных" строк

     for j2:=1 to n do begin  // формально можно  сравнивать каждый с каждым. ( и проверять j1<>j2 !!)

но с предыдущими (где j2<j1) мы уже сравнивали
с собой (j2=j1) сравнивать не надо
поэтому достаточно сравнить с последующими (j2>j1)

     for j2:=j1+1 to n do begin

[slovetskii]

а можно как - нибудь без true и false? мы еще не изучали..

[unbanned]

ну тогда просто берешь переменную целочисленную...

var
 f:integer;

вместо f:= true;

пишешь

f:= 1;

вместо f:= false;

пишешь

f:= 0;

ну и сравниваешь тогда

if f=1 then...