Question

Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.

Answer 1

Ответ:

• begin
• var a := ReadMatrInteger(ReadInteger('M:'),ReadInteger('N:'));
• a.Cols.Numerate.MaxBy(x->x[1].Count(x->x<0))[0].Print
• end.

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