Дан массив 9x9 заполнить его по порядку относительно побочной диагонали - Turbo Pascal
Формулировка задачи:
дан массив 9x9 заполнить его по порядку относительно побочной диагонали
Решение задачи: «Дан массив 9x9 заполнить его по порядку относительно побочной диагонали»
textual
Листинг программы
uses crt; const n=9; var i,j,l,k:integer; a:array[1..n,1..n]of integer; begin clrscr; k:=0; For l:=1 to 2*n-1 do{количество диагоналей, параллелных побочной} begin if l>n then{выше диагонали} begin for i:=l-n+1 to n do begin k:=k+1; a[i,l-i+1]:=k; end end else if l<=n then{ниже диагонали и на ней} begin for i:=1 to l do begin k:=k+1; a[i,l-i+1]:=k; end end; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln end.