Для данной квадратной матрицы сформировать одномерный массив из ее диагональных элементов.

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of real;
nbsp;nbsp;nbsp;nbsp;b:array[1..nmax] of real;
nbsp;nbsp;nbsp;nbsp;n,i,j:integer;
nbsp;nbsp;nbsp;nbsp;s:real;
begin
clrscr;
randomize;
repeat
write(Размер матрицы до ,nmax, n=);
readln(n);
until n in [1..nmax];
writeln(Начальная матрица:);
s:=0;
for i:=1 to n do
nbsp;begin
nbsp;nbsp;for j:=1 to n do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;a[i,j]:=10*random;
nbsp;nbsp;nbsp;nbsp;write(a[i,j]:5:2);
nbsp;nbsp;nbsp;nbsp;if j=i nbsp;then
nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;b[i]:=a[i,j];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=s+b[i];
nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln;
nbsp;end;
writeln;
writeln(Массив частей основной диагонали:);
for i:=1 to n do
write(b[i]:5:2);
writeln;
writeln(След=,s:0:2);
writeln(Перевоплощенная матрица:);
for i:=1 to n do
nbsp;begin
nbsp;nbsp;for j:=1 to n do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if i mod 2=0 then a[i,j]:=a[i,j]/s;
nbsp;nbsp;nbsp;nbsp;write(a[i,j]:5:2);
nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln;
nbsp;end;
readln
end.