Заполнить массив так, чтобы в каждой строке и каждом столбце не было повторяющихся элементов - Free Pascal

Формулировка задачи:

Есть матрица NxN (N<=10). Требуется заполнить массив так, чтобы в каждой строке и каждом столбце не было повторяющихся элементов. Вход 3 0 2 0 0 1 0 2 0 0 выход 1 2 3 3 1 2 2 3 1

Код к задаче: «Заполнить массив так, чтобы в каждой строке и каждом столбце не было повторяющихся элементов - Free Pascal»

textual
var a:array[1..10,1..10] of integer;
     i,j,k,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
  begin
   k:=i-1;
   for j:=1 to n do
     begin
       k:=k+1;
       if k>n then k:=1;
       a[i,j]:=k;
       write(a[i,j]:3);
     end;
   writeln;
  end;
end.

9   голосов, оценка 4.111 из 5


СОХРАНИТЬ ССЫЛКУ