Найти лишнее слово в каждой строчке клавиатура, джойстик, сканер, принтер. монитор, графопостроитель, - id381273420210402 от Дениссирвачак 02.04.2021 01:27

Question

Информатика: Найти лишнее слово в каждой строчке клавиатура, джойстик, сканер, принтер. монитор, графопостроитель, принтер, мышь. жёсткий диск, flash-память, компакт-диск, процессор. принтер, акустические колонки, наушники, микрофон. системный блок, центральный процессор, оперативная память, жёсткий диск, блок питания. системный блок, клавиатура, мышь, монитор, акустические колонки. видеокарта, карта расширения, звуковая карта, сетевая карта. enter, end, esc, delete. цветной принтер, лазерный принтер, матричный

Дениссирвачак · Accepted Answer

// 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

MOGZ ответил