Новое испытание:)

[Небо Принстона]

С помощью процедур и функций надо решить вот эту задачу Спасайте ребята!! Ну ни фига не понимаю.
Для заданной матрицы размером 1010 найти такие k, что k-я строка совпадает с k-м столбцом.

[Хыиуду]

Функция, которая считает, совпадает ли k-я строка с k-м столбцом
function sovpad(k:integer):boolean;
begin
sovpad:=(A[k,1]=A[1,k]) and (A[k,2]=A[2,k]) and {и так далее, надеюсь, закономерность понятна} and (A[k,10]=A[10,k]);
end;
Собственно, все осталось только со помощью функции проверить все 10 значений

[somewhere]

Ай, как не рационально!

Код: Выделить всё

function sovpad(k:integer):boolean;
var x:Integer;
begin
sovpad := true;
For x:=1 to 10 do sovpad:=sovpad and (A[k,x]=A[x,k]);
end;

[Хыиуду]

Ай, как не рационально!

Знаю, зато пишется методом Ctrl-Ins, Shift-Ins и работает быстрее на несколько миллисекунд Иногда, когда цикл короткий, тянет обойтись без него
Кстати, somewhere, для вящей скорости в цикле не мешало бы еще сделать break, как только sovpad обратится в false