Консультация № 138538
29.05.2008, 17:47
0.00 руб.
0 1 1
Многоуважаемые эксперты, помогите, пожалуйста, составить программу, формирующую целочисленную квадратную матрицу. Для заданной квадратной матрицы найти такие k, что k-я строка матрицы совпадает с k-м столбцом. Заранее благодарен.

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа