Составить программу на языке паскаль : дана матрица а(n, n). составить программу подсчета количества положительных элементов, расположенных выше главной диагонали

291

500

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

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

vika737722

Информатика

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

Var n, i, j, ans : integer; a : array[,] of integer; begin read(n); ans : = 0; setlength(a, n + 1, n + 1); for i : = 1 to n do for j : = 1 to n do read(a[i, j]); for i : = 1 to n do for j : = i + 1 to n do if (a[i, j] > 0) then ans : = ans + 1; writeln(ans); end.