21.12.2017, 02:57
|
#11 (permalink) |
|
Member
Регистрация: 21.12.2017
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 717
|
Код:
Max:=0; { Полагаем, что массив из положительных чисел } for i:=1 to N do for j:=1 to M do if Max 1 then Max:=A[i,j] end
|
|
|
|
21.12.2017, 02:57
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можно упростить решение вопроса путем просмотра схожих постов Помогите решить задачу по ТОЭ Помогите решить задачу Помогите решить задачу Помогите решить задачу Помогите решить задачу! |
|
21.12.2017, 02:59
|
#12 (permalink) |
|
Member
Регистрация: 21.12.2017
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 717
|
Чёт хрень с кодом в предыдущем сообщении
Код:
Max:=0; { Полагаем, что массив из положительных чисел } for i:=1 to N do for j:=1 to M do if Max 1 then Max:=A[i,j] end
|
|
|
|
|
21.12.2017, 03:01
|
#14 (permalink) |
|
Member
Регистрация: 21.12.2017
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 717
|
Код:
Max:=0; { Полагаем, что массив из положительных чисел }
for i:=1 to N do
for j:=1 to M do
if Max<A[i,j] then
begin
Count:=0;
for k:=1 to N do for l:=1 to M do if A[i,j] = A[k,l] then Inc(Count);
if Count > 1 then Max:=A[i,j]
end
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
