Question

(PASCAL ABC) Дан двумерный массив a, размером (n´m). Заполнить одномерный
массив, найдя среднее арифметическое положительных элементов в каждом
столбце матрицы

Answer 1

##

var (n, m) := ReadInteger2('Введите n и m:');

var a := MatrRandom(n, m, -99, 99);

a.Println(4);

Writeln;

var b := a.Cols.Select(col -> col.Where(p -> p > 0).DefaultIfEmpty.Average).ToArray;

b.Print