Pascal поменять значение элемента двухмерного массива A(N,N) на сумму окружающих элементов.

[mrRastom]

Задание:

Составьте программу , меняющую значение элемента двухмерного массива A(N,N) на сумму окружающих элементов.

Мой код:

Uses crt;
Var a,b:array [1..100,1..100] of integer;
    i,j,n:integer;
Begin
ClrScr;
    write ('Задайте размер матрицы: ');
    readln(n);
    writeln ('Введите элементы матрицы:');
    
    for i:=1 to n do
    for j:=1 to n do
      begin
        write ('a[',i,',',j,']= ');
        readln(a[i,j]);
      end;
    
    writeln;
    writeln('Исходная матрица:');
    writeln;
    for i:=1 to n do
    	begin
      for j:=1 to n do
       			write(a[i,j]:3);
      			writeln;
    	end;
    
    for i:=1 to n do
    for j:=1 to n do
      if j=1 then b[i,j]:=a[i,j+1];
      if j=n then b[i,j]:=a[i,j-1]
      else b[i,j]:=a[i,j-1]+a[i,j+1];
      
    writeln;
    writeln('Новая матрица:');
    writeln;
    for i:=1 to n do
    	begin
      for j:=1 to n do
       			write(b[i,j]:3);
      			writeln;
    	end;
Readln
End.

Почему то при выводе появляются нулевые элементы. Что не так?

[mrRastom]

и правильно ли я понял задание? Или элемент должен указываться, и меняться должен именно он, а не все элементы в матрице на сумму окружающих.

[mrRastom]

неужели ни у кого нет ни каких идей где может быть ошибка? Я до сих пор не нашел(

[Sparkman]

Понял ваше задание :
необходимо на основе одной матрицы создать вторую, с измененными элементами, при этом значения элементов первой матрицы не изменяются:

const msize = 100;
var a,b:array [1..msize,1..msize] of integer;
    i,j,n:integer;
begin
     write ('Set size of matrix: ');
     readln(n);
     randomize;
     if n>msize then
     begin
          writeln('Size of matrix is very big...');
          writeln('Press enter to exit');
          readln;
          halt;
     end;
     writeln('Random matrix:');
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               a[i,j] := random(9);
               write(a[i,j]:3);
          end;
          writeln;
     end;

     if n>1 then
        for i:=1 to n do
        for j:=1 to n do
        begin
             if i=1 then b[i,j]:=b[i,j]+a[i+1,j] else
             if i=n then b[i,j]:=b[i,j]+a[i-1,j] else
             b[i,j]:=b[i,j]+a[i+1,j]+a[i-1,j];

             if j=1 then b[i,j]:=b[i,j]+a[i,j+1] else
             if j=n then b[i,j]:=b[i,j]+a[i,j-1] else
             b[i,j]:=b[i,j]+a[i,j+1]+a[i,j-1];

             if (i=1) and (j=1) then b[i,j]:=b[i,j]+a[i+1,j+1] else
             if (i=1) and (j=n) then b[i,j]:=b[i,j]+a[i+1,j-1] else
             if (i=n) and (j=1) then b[i,j]:=b[i,j]+a[i-1,j+1] else
             if (i=n) and (j=n) then b[i,j]:=b[i,j]+a[i-1,j-1] else
             if i=1 then b[i,j]:=b[i,j]+a[i+1,j-1]+a[i+1,j+1] else
             if i=n then b[i,j]:=b[i,j]+a[i-1,j-1]+a[i-1,j+1] else
             if j=1 then b[i,j]:=b[i,j]+a[i+1,j+1]+a[i-1,j+1] else
             if j=n then b[i,j]:=b[i,j]+a[i+1,j-1]+a[i-1,j-1] else
             b[i,j]:=b[i,j]+a[i+1,j+1]+a[i+1,j-1]+a[i-1,j+1]+a[i-1,j-1];
        end
     else b:=a;
     writeln;
     writeln('Changed matrix:');
     writeln;
     for i:=1 to n do
   	 begin
          for j:=1 to n do
              write(b[i,j]:3);
          writeln;
     end;
     writeln;
     writeln('Press enter to exit');
     Readln;
end.

ПС: у вас ошибка в том, что вы суммируете значения только в строках, при этом забыв о значениях в столбцах и по диагонали.