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

Question

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

Comments

Уже не нужно.

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</li>
• end.

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