Определить сумму всех элементов массива, расположенных над

главной диагональю

Question

Информатика

Валерьич

25 августа, 13:59

Определить сумму всех элементов массива, расположенных над

главной диагональю

+5

Ответы (1)

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

Пахом · Answer 1

Const

n=3;

var a:array[1 ... n, 1 ... n] of integer;

i, j, s:integer;

begin

s:=0;

writeln ('Введите элементы матрицы') ;

for i:=1 to n do

for j:=1 to n do begin

read (a[i, j]) ;

if i
end;

writeln;

for i:=1 to n do begin

for j:=1 to n do write (a[i, j], ' ') ;

writeln;

end;

writeln ('Сумма всех элементов над главной диагональю = ', s) ;

end.

Определить сумму всех элементов массива, расположенных надглавной диагональю

Определить сумму всех элементов массива, расположенных над

главной диагональю