• Дана квадратная матрица порядка N. Найти количество четных элементов квадратной матрицы, расположенных ниже побочной диагонали.

Ответы 1

  • // 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
    • Автор:

      oliveiaua
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years