Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.