Найти номера строк матрицы, элементы которых одинаковы

@VITEK48RUS · Регистрация: 17.06.2012

Author24 — интернет-сервис помощи студентам

Дан массив X(N,M). в массиве найти номера строк,элементы которых одинаковы. Из полученных значений свормировать одномерный массив

@Владимир_ВМ · 18.06.2012, 02:36

Pascal

var
x:array[1..10,1..10]of integer;
i,j,n,m,k:integer;
begin
write('ââåäèòå n,m(n<=10,m<=10)');read(n,m);
for i:=1 to n do
  for j:=1 to m do
      read(x[i,j]);
write('Nomera strok:');
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m-1 do
    if x[i,j]=x[i,j+1]
      then inc(k);
  if k=m-1 then write(i:3);
 end;
end.

@VITEK48RUS 0 / 0 / 0 Регистрация: 17.06.2012 Сообщений: 6
		1
	Найти номера строк матрицы, элементы которых одинаковы 17.06.2012, 19:31. Показов 2219. Ответов 1 Метки нет (Все метки) Дан массив X(N,M). в массиве найти номера строк,элементы которых одинаковы. Из полученных значений свормировать одномерный массив 0

	18.06.2012, 02:36

Найти номера строк матрицы, элементы которых одинаковы

Решение