Я это понимаю, но, чёрт возьми, на данную задачу нет толку писать функцию по нахождению максимального элемента Т.е. зачем делать что-то сложное если можно всё сделать гораздо проще? Нужна помощь? Сюда: vkontakte.ru/berestovskiy
function max(n,m,p,pm:integer):integer; var i,j:byte; begin for i:=1 to n do for j:=1 to m do begin read(p); if p>pm then begin pm:=p;max:=pm;end;end;end; var n,m,p,pm:integer; begin read(n,m); writeln(max(n,m,p,pm)); end.
Безусловно..примерно десяток вводов сделал и получил правильный вывод, а что есть ввод при котором выводит не правильный результат? Нужна помощь? Сюда: vkontakte.ru/berestovskiy