Заполнение матрицы по правилу - Pascal ABC (14117)
Формулировка задачи:
Задано количество строк и столбцов матрицы и номер строки и столбца некоторого элемента. Заполнить матрицу целыми числами следующим образом: указанный элемент должен содержать значение 1, окаймляющие его элементы – 2, соседние с ними – 3 и т.д.
Решение задачи: «Заполнение матрицы по правилу»
textual
Листинг программы
const n=8;m=10;n1=5;m1=6; type mas=array[1..n,1..m] of byte; var a:mas; i,j:byte; function max(x,y:byte):byte; begin if x>y then max:=x else max:=y end; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=max(abs(i-n1)+1,abs(j-m1)+1); write(a[i,j],' ') end; writeln end end.