Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i<j then s:=s+a[i,j]; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Сумма всех элементов над главной диагональю = ',s); </span>
<span>end.</span>
Странный вопрос.
Плюс нижней что бумага не торчит и не мешает, минус, что загрузка бумаги туда занимает больше времени.
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вверх
кц
нц пока не сверху свободно
закрасить
вправо
кц
если сверху свободно то
влево
вниз
все
нц пока не слева свободно
закрасить
вниз
кц
если сверху свободно то
вверх
все
кон
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
write(range(1,ReadInteger()).Sum());
end.
<span>Х = А*(В + !С) + А*!В
= A*B + A*!C + A*!B = A*(B + !B) + A*!C = A*1 + A*!C = A*(1 + !C) = A</span>