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

@SvetaZ · Регистрация: 14.09.2010

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

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

@Udzin · 28.09.2010, 19:07

Pascal

Program maccub;
uses
 crt;
var
 a:array[1..100,1..100] of real;
 n,i,j,k,d:integer;
begin
 clrscr;
 Writeln('BBedUTe nop9DoK matpuL/bl');
 readln(n);
 For i:=1 to n do
 begin
  for j:=1 to n do
  begin
   Write('a[' ,i, ',' ,j, ']=');
   readln(a[i,j]);
  end;
 end;
 i:=1;
 d:=0;
 while i<=n+1 do
 begin
  if k=n-1 then
   inc(d);
  j:=1;
  k:=0;
  while j<n do
  begin
   if a[i,j]=a[i,j+1] then
    begin
     inc(k);
     j:=j+1;
    end
   else
    j:=n+1;
  end;
 inc(i);
 end;
 Writeln('KoLu4eCTBo ctpok=  ' ,d);
 readkey;
end.

@SvetaZ · 28.09.2010, 19:47 **[ТС]**

найти максимальный элемент каждой строки. Результат получить в виде линейного массива размером N.

@SvetaZ 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 29
		1
	Найти номера строк матрицы, элементы в каждой из которых одинаковы 28.09.2010, 19:04. Показов 1757. Ответов 2 Метки нет (Все метки) Найти номера строк, элементы в каждой из которых одинаковы. 0

@SvetaZ 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 29
	28.09.2010, 19:47 [ТС]	3
	найти максимальный элемент каждой строки. Результат получить в виде линейного массива размером N. 0

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

Решение