Question

Помогите пожалуйста решить задачу.
Найти номер столбца массива размером MxN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.
Язык Pascal.

Answer 1

Ответ:

• begin
• var (m,n) := ReadInteger2('Введите M и N:');
• var mtr := MatrRandom(m,n,-99,99).Print;
• mtr.Cols.Numerate.MaxBy(c->c[1].Count(x->x<0))[0].Print
• end.

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