Помогите пожалуйста с задачами

[Daiv]

Извините что вас беспокою, помогите плз с задачами:

1) Заменить в квадратной матрице n-го порядка каждый элемент суммой окружающих его элементов.

2)Заполнить массив A размером m x m следующим образом, например, для m = 5:
1 1 1 1 1
0 1 1 1 0
0 0 1 0 0
0 1 1 1 0
1 1 1 1 1

Если не трудно, напишите попроще, на уровне 11 класса

[lexus_ilia]

по 1-ой задаче...Есть такая штука, что при заменене некоторых элементов следующие будут уже плюсоваться со значениями суммы или разрешено исользовать ещё одну матрицу?

[lexus_ilia]

Держи 1-ую, но я сделал с учётом всех близлежащих элементов, т.е. 8-ми элементов(спереди, сзади, по диагоналям 4-е, сверху, снизу)

Program xa;
var
 a,b:array[0..50,0..50] of integer;
 i,j,n:integer;
begin
 Writeln('Bedute pa3MePHOCtb matpuL/bl');
 readln(n);
 Writeln('BBedute camy matpuL/y');
 for i:=1 to n do
  for j:=1 to n do
  begin
   Write('a[' ,i, ',' ,j, ']=');
   readln(a[i,j]);
  end;
 for i:=1 to n do
  for j:=1 to n do
   b[i,j]:=a[i-1,j]+a[i-1,j+1]+a[i,j+1]+a[i+1,j+1]+a[i+1,j]+a[i+1,j-1]+a[i,j-1]+a[i-1,j-1];
 Writeln;
 Writeln('noLy4uBLLIEeC9 matPuL/a');
 for i:=1 to n do
 begin
  for j:=1 to n do
   Write(b[i,j], '  ');
  Writeln;
 end;
 readln;
end.

[lexus_ilia]

2-ая:

Program xa;
var
 a,b:array[0..50,0..50] of integer;
 i,j,n:integer;
begin
 Writeln('Bedute pa3MePHOCtb matpuL/bl');
 readln(n);
 Writeln('BBedute camy matpuL/y');
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=0;
 for i:=1 to n do
 begin
  for j:=n-i+1 downto i do
   a[i,j]:=1;
  for  j:=n-i+1 to i do
   a[i,j]:=1;
  end;
 Writeln('noLy4uBLLIeec9 matpuL/a');
 for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j], ' ');
  Writeln;
 end;

 readln;
end.

[Daiv]

Спасибо огромное!!!))

[Сергей17]

доброго времени суток!народ помогите плиз с двумя задачами...вот условие ниже...пожалуйста очень прошу...девушке моей нужно очень!сам паскаль не знаю(((памагите!!!очень вас прошу....