Вопрос по информатике:
(PASCAL) Дан двухмерный массив целых чисел. Найти столбец с максимальной суммой элементов
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.11.2017 06:18
- Информатика
- remove_red_eye 18949
- thumb_up 30
Ответы и объяснения 1
Var a: array[0..1000, 0..1000] of integer; n, l, s, maxs, max: longint;
begin for var i := 1 to 1000 do for var j := 1 to 1000 do a[i, j] := 0; maxs := 0; read(n); read(l); for var i := 1 to n do for var j := 1 to l do begin read(a[i, j]) end; s := 0; for var i := 1 to n do begin for var j := 1 to l do s := s + a[i, j]; if (s > maxs) then begin maxs := s; max := i; end; s := 0; end; writeln(max);end.
- 16.11.2017 17:44
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.