паскаль,матрицы

[ASYA2012]

1. Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и М столбцов. Найти наибольший элемент столбца матрицы А, для которого сумма абсолютных значений элементов максимальна

прошу помощи вот в чем: как сделать так, что если в нескольких столбцах совпадает сумма, чтобы программа писала не только 1 столбец, а указывала все??

[Serge_Bliznykov]

1) не надо выкладывать скриншоты. Скопируйте текст программы (предварительно откройте программу в любой нормальном текстовом редакторе под Windows) и вставьте сюда на форум (не забудьте на форуме использовать кнопочку # для оформлени кода)

2) если нужно получить все значения, тогда Вам можно
- либо ДВАЖДЫ проходить по своей матрице. Один раз прошли - нашли максимальную сумму. второй раз проходите - находите сумму - если она совпадает с максимальной - выводите номер этого столбца.

- либо при проходе, когда ищите максимальное значение, проверять на равенство сумму элементов текущего столбца с найденной к текущему моменту максимальное величиной. Если совпадает, то можно в какой-то структуре (да хоть той же строке) накапливать номера столбцов, где сумма совпала.
Не забывайте, что если сумма какого-то столбца больше, чем найденное значение, (ну там, где вы пишете
AMax := ASum; imax := ih; ) нужно обязательно ОБНУЛЯТЬ список найденных номеров столбцов и заносить туда imax!


первый спобом менее эффективен, но зато намного проще. рекомендую взять его.


p.s. а нахождение суммы модулей элементов столбца удобнее сделать отдельной функцией!