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

Question

Информатика

Кристя

10 октября, 03:23

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

+5

Ответы (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.