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

@Proger_ok · Регистрация: 04.04.2012

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

Дана целочисленная квадратная матрица n-го порядка. Найти номера строк, элементы в каждой из которых одинаковы.

@UserABC · 01.06.2012, 22:18

Pascal

uses crt;
var n,i,j:integer; s:boolean;
a:array [1..100,1..100] of integer;
begin
clrscr;
write ('Введите размер матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write ('Введите элемент [',i,';',j,']');
readln (a[i,j]);
end;
write('Все элементы равны в строках : ');
for i:=1 to n do
begin
s:=true;
for j:=1 to n-1 do
if a[i,j]<>a[i,j+1] then s:=false;
if s=true then write(i,' ');
end;
end.

@Proger_ok 0 / 0 / 0 Регистрация: 04.04.2012 Сообщений: 5
		1
	Целочисленная квадратная матрица. Найти номера строк, элементы в каждой из которых одинаковы 01.06.2012, 15:10. Показов 2282. Ответов 1 Метки нет (Все метки) Дана целочисленная квадратная матрица n-го порядка. Найти номера строк, элементы в каждой из которых одинаковы. 0

	01.06.2012, 22:18

Опции темы

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

Решение