[dasha131]

Теперь проверяю этот код

Код:

program asdf;
const
    n=4;
var
  a:array[1..n,1..n]of integer;
  f:boolean;
  l,i,j:integer;
begin
  l:=1;
    for i:=1 to n do
    for j:=1 to n do
      begin
        write('Enter A[',i,',',j,']:=');
        readln(a[i,j]);
      end;
    f:=true;
    for i:=1 to n do
    for j:=1 to n do
    begin
            if (abs(i-j)>l)and(a[i,j]<>0)then f:=false;

      if (abs(i-j)<l)and(a[i,j]=0)then f:=false;
    write('matrix band:',f:7);
  readln;
end;
end.

С появлением второго условия прога стала контролировать элемент a[1,1], если он равен нулю тогда фалс, если нет тогда тру, то есть для матрицы
1 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0 matrix band: true