// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк (столбцов) в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=0; for var i:=1 to n-1 do for var j:=n-i to n-1 do if a[i,j].IsEven then k+=1; Writeln('Количество четных элементов ниже побочной диагонали: ',k)end.
ПримерКоличество строк (столбцов) в матрице: 7*** Исходная матрица *** 90 57 58 49 91 -83 61 -57 70 52 90 53 -22 89 -90 -23 39 -88 28 16 -34 -65 -19 -92 -49 77 11 79 -37 -85 -5 6 -41 -75 -90 1 62 24 92 -37 88 21 -65 -47 48 -39 -46 6 38----------------------------Количество четных элементов ниже побочной диагонали: 11