1. Дан двумерный массив A[5;5] Найти сумму четных элементов массива 2. Дан двумерный...

Question

1. Дан двумерный массив A[5;5] Найти сумму четных элементов массива 2. Дан двумерный массив A[10;10] Найти количество элементов массива, кратных 3 3. Дан двумерный массив А[7;4] Найти среднее арифметическое всех элементов массива

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var a := MatrRandom(5, 5, -99, 99);

 a.Println.ElementsByRow.Where(k -> k.IsEven).Sum.Println;

 Writeln; // только чтобы отделить задачу

 // 2

 a := MatrRandom(10, 10, -99, 99);

 a.Println.ElementsByRow.Where(k -> k mod 3 = 0).Count.Println;

 Writeln; // только чтобы отделить задачу

 // 3

 a := MatrRandom(7, 4, -99, 99);

 a.Println.ElementsByRow.Average.Print

end.

Примечание:

Оформление отдельной задачей делать так:

begin

   var a := MatrRandom(7, 4, -99, 99);  // создание и заполнение

   a.Println.ElementsByRow.Average.Print // решение и вывод

end.

---