Question

1. Дан двумерный массив, содержащий З строки и 4 столбца. Элементами массива являются целые числа. Найти сумму элементов указанного массива, принадлежащих интервалу [-4,4]. Разделить каждый элемент исходного массива на полученное значение. Результат получить в другом массиве.

Answer 1

PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(3,4,-20,30);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow.Where(t->t.Between(-4,4)).Sum;
  var b:=a.ConvertAll(t->t/s);
  Writeln('Полученный массив'); b.Println(15,7)
end.