2. Теменде берілген белгілерді салыстырыңыз жане кестені толтырыңыз.
го вставить концевуно сносу
қсастығы

224

450

Посмотреть ответы 1

Ответы на вопрос:

egoremykina

Информатика

4,4(55 оценок)

Program podschet; var i, j ,ans: integer; a: array [1..100,1..100] of integer; begin writeln('введите размерность матрицы'); readln(n); writeln('введите матрицу ', n, 'х', n); for i : = 1 to n do for j : = 1 to n do read(a[i, j]); for i : = 1 to n do for j : = 1 to n do if (j = i + 1) then ans : = ans + a[i, j]; writeln('cумма элементов над главной диагональю = 'ans); end.