Question

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

Answer 1

Const n=10;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
s,i,j:integer;
begin
for 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 do
write(b[i],' ');
end.