01.06.2008, 08:30
общий
это ответ
Здравствуйте, Верещагин Михаил!
Решение задачи в приложении.
Приложение:
uses crt;var n,i,j,k,p,t:integer; a:array[1..50,1..50]of integer;beginclrscr;write(‘n=‘);readln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]); {вводим матрицу вручную, иначе результата не будет}readln;clrscr;Writeln(‘Ishodnaja matrica:‘); {выводим ее на экран таблицей}for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end;readln;t:=0;for i:=1 to n do begin p:=0; for j:=1 to n do if a[i,j]=a[j,i] then {если элементы строки совпадают с элементами столбца} begin p:=p+1; {считаем их} end; if p=n then {если все совпадают} begin t:=t+1; {считаем строку} writeln(‘K=‘,i);{выводим сообщение} end; end;if t=0 then writeln(‘Sovpadenij net!‘);{если нет таких строк, сообщаем}readlnend.