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

const n=10;var a:array[1..n,1..n] of integer;b:array[1..n] of integer;s,i,j:integer;beginfor i:=1 to n do  for j:=1 to n do begin  read(a[i,j]);  if i=j then b[i]:=a[i,j];  end;for i:=1 to n dowrite(b[i],' ');end.

Паскаль АВС:Program  Ainur59;uses crt;const n=10;var   i,j:integer;  matr:array[1..n,1..n] of integer;  diag:array[1..n] of integer;begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');  randomize;  writeln('Матрица: ');  for i:=1 to n do  begin    for j:=1 to n do    begin      matr[i,j]:=random(100)-50;      write(matr[i,j]:4,' ');      if i=j then diag[i]:=matr[i,j];    end;    writeln();  end;  writeln();  writeln('Mассив диагональных элементов:');  for i:=1 to n do    write(diag[i]:4,' ');end.