Обнулить все, кроме главной диагонали! (Паскаль).

Спасибо!)

Пожалуйста.

const n=5;var a:array[1..n,1..n] of integer;i,j:integer;beginwriteln('Исходная матрица:');Randomize;for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(100);   write(a[i,j]:4);  end;  writeln; end;for i:=1 to n do for j:=1 to n do  if i<>j then a[i,j]:=0;writeln('Измененная матрица:');for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4);  writeln; end;end.Пример:Исходная матрица:  70  77  19  40  39  28  31  64  64  98   0  67  49  82  20  43   0  16  48  56   2  34  91  25  63Измененная матрица:  70   0   0   0   0   0  31   0   0   0   0   0  49   0   0   0   0   0  48   0   0   0   0   0  63

program mass;uses crt;var x:array [1..100, 1..100] of integer;i,j,n,m:integer;beginclrscr;write ('Количество строк: ');readln (n);write('Количество столбцов: ');readln (m);for i:=1 to n dofor j:=1 to m dobeginwrite('Введите элемент ' ,i,j,' матрицы:');readln(x[i,j]);end;for i:=1 to N dobeginfor j:=1 to M dowrite (' ',x[i,j]:3);writeln;end;for i:=1 to n dofor j:=1 to m dobeginif (i <> j) thenx[i,j]:=0;end;writeln;for i:=1 to N dobeginfor j:=1 to M dowrite (' ',x[i,j]:3);writeln;end;readln;end.