дана матрица размером n

[milashka_92@e1.ru]

помогите пожалуйста!!зачет!

Пусть дама целочисленая матрица порядка n . Найти номера строк элементы которых образуют симметричные последовательности

зараннее спасибо!!

[DoDge_VipeR]

for i:=1 to n do
begin
f:=true;
for j:= 1 to n div 2 do
if a[i,j]<>a[i,n-j+1] then begin f:=false;break;end;
if f  then write(i:4);
end;

[milashka_92@e1.ru]

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

for i:=1 to n do
begin
f:=true;
for j:= 1 to n div 2 do
if a[i,j]<>a[i,n-j+1] then begin f:=false;break;end;
if f  then write(i:4);
end;

а можно в целомкод? пожалуйста!! очень надо...

[ROMA2PVT]

что матрицу не умеешь заполнять чтоли.

[DoDge_VipeR]

Целиком код только за $ а на бесплатно я вам уже написал.

[ROMA2PVT]

Uses
   CRT;
var
  mas: array [1..100,1..100] of integer;
  i,j,n:integer;
  f:boolean;

begin
Clrscr;
  write('Количество строк и столбцов: ');
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write('MAS[',i,';',j,']:=');
          readln(mas[i,j]);
        end;
      writeln;
    end;
    clrscr;
    writeln('MATRIX MAS: ');
    for i:=1 to n do
    begin
      for j:=1 to n do
        begin
        write(mas[i,j]:3,' ');
        end;
        writeln;
        end;
        writeln;
 readkey;
end.

Вот так матрицу заполняют.Вставь фрагмент DoDge_VipeR'a и будет тебе счастье.