Ответ:
М = 40
К = 6
Таблицу смотри на картинке
1. От первого лица, вертикальный, горизонтальный.
2. Вверх, вниз, влево, вправо, закрасить.
3 . Ну например ты не правильно написал(а) слово или у нц нет кц. Или у начала нет конца.
Убрать это предупреждение невозможно.
PascalABC.NET 3.2 - это современная версия языка, а практически
в любом современном языке программирования параметр цикла описывается в
заголовке цикла (и тем самым локализуется в этом цикле).
По утверждению разработчиков (ЮФУ), через какое-то время вариант с использованием в качестве параметра цикла внешних переменных вообще будет запрещен.
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>