3 задачи с двумерными массивами (паскаль)

[andrei_sx]

Здравствуйте. прошу помощи в решении следующих задач:

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

2. Составьте программу суммирования элементов двустороннего массива, сумма индексов которых равна заданной константе. РЕШЕНО.

3. Составьте программу подсчета строк двумерного массива A(N,M), в которых имеется хоть 1 нулевой элемент. РЕШЕНО.

[aslanbek999]

PROGRAM v12_4_2_4;
const nn=50;
type matrix=array[1..nn,1..nn] of real;
var p,n,m,i,j:integer;
    F1,F2:text;
    A:matrix;
Begin
 assign(F1,'isdan.pas');
 assign(F2,'vdan.pas');
 reset(f1);
 rewrite(f2);
 read(f1,n,m);
 readln(f1);
 for i:=1 to n do
  begin
   for J:=1 to m do
    read(f1,A[i,j]);
   readln(f1);
  end;
 for i:=1 to n do
  for j:=1 to m do
   if A[i,j]=0 then
    begin
     p:=p+1;
     i:=i+1;
     J:=1;
    end;
 writeln(f2,p);
 close(f1);
 close(f2);
end.