III. Решить задачу. Проверить на 2-3 тестовых наборах (в паскале авс). Сформировать квадратную матрицу порядка n по заданному образцу: n 0 0 ... 0 0 0 0 n-1 0 ... 0 0 0
III. Решить задачу. Проверить на 2-3 тестовых наборах (в паскале авс). Сформировать квадратную матрицу порядка n по заданному образцу: n 0 0 ... 0 0 0 0 n-1 0 ... 0 0 0
0 0 n-2 ... 0 0 0
.......................................
0 0 0 ... 0 2 0
0 0 0 ... 0 0 1
Гость
Ответ(ы) на вопрос:
Гость Const n=8; var a:array[1..n,1..n] of integer; i,j:integer; begin for i:=1 to n do a[i,i]:=n-i+1; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:2); writeln; end; end. Пример: 8 0 0 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1
Не нашли ответ?
Похожие вопросы