Question

Дано матрицю A[1..n,1..m]. Елементи матриці потрібно згенерувати випадковими
числами з діапазону[0..50]. На друк вивести вхідну матрицю та результати обробки за
умовою: обчислити кількість та суму парних елементів масиву, які менші числа А,
введеного з клавіатури.

Answer 1

                                     PascalABC.NET                                      

Ответ:

• begin
• var m := MatrRandom(ReadInteger('n='),ReadInteger('m='),0,50);
• m.Println;
• var A := ReadInteger('A=');
• var mr := m.ElementsByRow.Where(x -> (x.IsEven) and (x<A));
• Println('Количество:', mr.Count);
• Println('Сумма:', mr.Sum);
• end.

Пример работы: