Перевертыш_Помогите кто нибудь Плиз Опции

[antonrusul]

прошу помощи. паскаль недавно изучаю по контрольной задали задачу всю голову изломал плиз помогите
условие задачи:

Существует ли в матрице строка или столбец палиндром, т.е. перевертыш, т.е. A[I,1] = A[I,N]; A[I,2] = A[I,N-1] и т.д. или A[J,1] = A[J,N]; A[J,2] = A[J,N-1].

Сообщение отредактировано: antonrusul - 27.01.2007 3:05

[TS*]

прошу помощи. паскаль недавно изучаю по контрольной задали задачу всю голову изломал плиз помогите
условие задачи:

Существует ли в матрице строка или столбец палиндром, т.е. перевертыш, т.е. A[I,1] = A[I,N]; A[I,2] = A[I,N-1] и т.д. или A[J,1] = A[J,N]; A[J,2] = A[J,N-1].

const
   n=5; m=5;
var
   i,j: integer;
   mA: array[1..n, 1..m] of integer;
   stroka_palundrom: boolean;
   ..............
begin
   for i:=1 to n do begin
            stroka_palundrom:=true;
	for j:=1 to (m div 2) do begin
		if (not(mA[i,j]=mA[i,m+1-j])) then stroka_palundrom:=false;
	end;
            if(stroka_palundrom) then writeln("Stroka palundrom sysh4estvyet, eto stroka nomer ", i);  
   end;	
   .............
end.

Так же делаеш и для столбца