Заполнение матрицы по правилу - Pascal ABC (14117)

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

Задано количество строк и столбцов матрицы и номер строки и столбца некоторого элемента. Заполнить матрицу целыми числами следующим образом: указанный элемент должен содержать значение 1, окаймляющие его элементы – 2, соседние с ними – 3 и т.д.

Код к задаче: «Заполнение матрицы по правилу - Pascal ABC (14117)»

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.

14   голосов, оценка 3.857 из 5


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