Разное - [решено] Помогите с прогой на TurboPascal, проверяющую является ли матрица А трёхдиагональной

Разное - [решено] Помогите с прогой на TurboPascal, проверяющую является ли матрица А трёхдиагональной

dasha131

Новый участник

Сообщения: 40
Благодарности: 2

НУжно составить программу, проверяющую, является ли матрица А трёхдиагональной
Трёхдиагональная матрица выглидит как матрица три диагонали которой (средняя и две прилегающие) не равны нулю, а все остальные элементы, не входящие в эти диагонали, равны 0.
Вот тут код есть один, не могу найти ошибку

Код:

program diagonal;
const
    n=8;
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
            if (abs(i-j)>l)and(a[i,j]<>0)then f:=false;
    write('matrix band:',f:7);
  readln;
end.

Я же правильно поняла, нужно чтобы выполнялось два условия??
1-элементы, входящие в эти три диагонали не равны нулю.
2-элементы , не входящие в эти три диагонали равны нулю.

Отправлено: 15:33, 16-10-2010