Question

Помогите написать пожалуйста программу в Паскале Двумерные массивы 1) Дана целочисленная прямоугольная матрица. Определить сумму элементов тех строк, которые содержат хотя бы один отрицательный элемент. 2) Определите количество строк в матрице, в которых числа принадлежат отрезку [a,b].

Answer 1

PascalABC.NET

Ответ:

• begin
•  var m := MatrRandom(5, 8, -99, 99).Print;
•  m.Rows.Where(r -> r.Any(x -> x<0)).PrintLines(r -> r.Sum);
•  var (a, b) := ReadInteger2('Введите a, b:');
•  m.Rows.Count(r -> r.All(x -> x in a..b)).Print
• end.

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