Заполнить матрицы по заданному образцу - PascalABC.NET
Формулировка задачи:
Дана последовательность целых чисел 1,2,...,100. Заполнить ими матрицу следующим образом
1 2 ...... 10
11 12 ... 20
21 22 ... 30
...................
91 92 ... 100
и распечатать.
Решение задачи: «Заполнить матрицы по заданному образцу»
textual
Листинг программы
const n=10; var a:array[1..n,1..n] of byte; i,j:byte; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=(i-1)*n+j; write(a[i,j]:4); end; writeln; end; end.