ПЕР
массив: РЯД N, M ИЗ ЦЕЛ;
сч1, сч2, сум, макс, номер: ЦЕЛ;
УКАЗ
номер := 0; макс := 0;
ОТ сч1 := 0 ДО M-1 ВЫП
УВЕЛИЧИТЬ(макс, массив[0, сч1])
КОН;
ОТ сч1 := 1 ДО N-1 ВЫП
сум := 0;
ОТ сч2 := 0 ДО M-1 ВЫП
УВЕЛИЧИТЬ(сум, массив[сч1, сч2])
КОН;
ЕСЛИ сум > макс ТО макс := сум; номер := сч1 КОН
КОН
КОН Задание.