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

Question

Информатика

Нилла

30 декабря, 01:28

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

+2

Ответы (1)

Знаете ответ на вопрос?

Надюра · 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.