№0066

Дан фрагмент программы, обрабатывающей двумерный массив A размера n×n.

Бейсик	Паскаль	Алгоритмический
k = 1 FOR i = 1 TO n     c = A(i,i)     A(i,i) = A(k,i)     A(k,i) = c NEXT i	k:=1; for i:=1 to n do begin     c:=A[i,i];     A[i,i]:=A[k,i];     A[k,i]:=c end	k:=1 нц для i от 1 до n     c:=A[i,i]     A[i,i]:=A[k,i]     A[k,i]:=c кц

Представим массив в виде квадратной таблицы, в которой для элемента массива A[i,j] величина i является номером строки, а величина j – номером столбца, в котором расположен элемент. Тогда данный алгоритм меняет местами

• 1)
  два столбца в таблице
• 2)
  две строки в таблице
• 3)
  элементы диагонали и k-ой строки таблицы
• 4)
  элементы диагонали и k-го столбца таблицы

Источник: http://opengia.ru/items/62476B4EBA9FB7184E6CA9D54ADBEE06