Технический форум - Помогите решить задачу

Страница 2 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите решить задачу (http://www.tehnari.ru/f41/t256689/)

Студент-2000

21.12.2017 02:57

Код:

 Max:=0; { Полагаем, что массив из положительных чисел } for i:=1 to N do   for j:=1 to M do     if Max 1 then Max:=A[i,j]     end

Студент-2000

21.12.2017 02:59

Чёт хрень с кодом в предыдущем сообщении

Код:

 Max:=0; { Полагаем, что массив из положительных чисел } for i:=1 to N do   for j:=1 to M do     if Max 1 then Max:=A[i,j]     end

Студент-2000

21.12.2017 02:59

Max:=0; { Полагаем, что массив из положительных чисел } for i:=1 to N do for j:=1 to M do if Max 1 then Max:=A[i,j] end

Студент-2000

21.12.2017 03:01

Код:

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

Часовой пояс GMT +4, время: 12:18.

Страница 2 из 2

Показывать 40 сообщений этой темы на одной странице