|
Функция
|
|
|
Офрмить в виде функции нахождение максимума двумерного массива A[N,M].
|
|
|
|
var
i,j,n,m,p,pm:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do begin
read(p);
if p>pm then pm:=p;end;
writeln(pm);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
как это же не через функцию
|
|
|
|
Я это понимаю, но, чёрт возьми, на данную задачу нет толку писать функцию по нахождению максимального элемента
Т.е. зачем делать что-то сложное если можно всё сделать гораздо проще?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
препад сказал написать через функцию
|
|
|
|
1
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
№ 6 | Автор: Berestovskiy |
2011-06-20, 09:49 | Изменено: Berestovskiy - Пн, 2011-06-20, 10:02
|
Репутация: [ + 211 ]
|
|
|
|
|
и что это знавчит? кто нибудь помочь может?
|
|
|
|
Держи))
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
№ 8 | Автор: Berestovskiy |
2011-06-20, 18:52 | Изменено: Berestovskiy - Пн, 2011-06-20, 19:00
|
Репутация: [ + 211 ]
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
№ 8 | Автор: Berestovskiy |
2011-06-20, 18:52 | Изменено: Berestovskiy - Пн, 2011-06-20, 19:00
|
Репутация: [ + 211 ]
|
|
|
|
Berestovskiy а ты проверяешь код перед отправкой?
If you can't make it GOOD make it LOOK GOOD. B.Gates
|
|
|
|
Quote (DoVe) Berestovskiy а ты проверяешь код перед отправкой?
Безусловно..примерно десяток вводов сделал и получил правильный вывод, а что есть ввод при котором выводит не правильный результат?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
