Помогите решить задачу

[Лена12]

Помогите решить задачу

Помогите решить задачу на двумерные массивы: составьте программу нахождения максимального из чисел, встречающихся в заданном
двухмерном массиве более одного раза.
Нужно решить задачу с использованием в двумерном массиве новый массив и выписать все числа, как то так говорили решать....
Заранее спасибо!

 

[Vladimir_S]

как то так говорили решать...

Лена, а Вам, случайно, не говорили, на каком языке программирования следует это решать? А то наши телепаты, знаете ли, опять разбежались кто куда...

 

[Лена12]

Язык программирования Паскаль ABC... И желательно с подпрограммами

 

[Vladimir_S]

Извините, не знаю, что Вам там "говорили решать", зачем тут вспомогательные массивы да подпрограммы, но самое простое решение — вот:

Const
 N=8;
Var
 A:Array [1..N,1..N] of Integer;
 i,j,i1,j1:Byte;
 M:Integer;

Begin
 Randomize;
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Random(100);
     write(A[i,j]:5);
    end;
   writeln;
  end;
 Writeln;
 M:=0;
 for i1:=1 to N do
  for j1:=1 to N do
   for i:=1 to N do
    for j:=1 to N do
     if (A[i,j]=A[i1,j1]) and ((i<>i1) or (j<>j1)) and (A[i,j]>M) then M:=A[i,j];
 Writeln('Max = ',M);
 Readln
End.

Это, правда, Free Pascal, но, думаю, сойдёт. Можно последний Readln убрать.

 

[Лена12]

Спасибо большое за решение!

 

[Лена12]

Подскажите, пожалуйста, а что обозначает переменная М?

 

[Vladimir_S]

Подскажите, пожалуйста, а что обозначает переменная М?

Она обозначает искомый максимальный элемент.

 

[derba]

Последние строки, после М:=0 можно упростить. Иначе излишние команды.

M:=0;

for i:=1 to N do
for j:=1 to N do
If M<=A[i,j] then M:=A[i,j];
Writeln('Max = ',M);

 

[AlexZir]

Иначе излишние команды.

Задание внимательно прочитали?

составьте программу нахождения максимального из чисел, встречающихся в заданном двухмерном массиве более одного раза.

 

[Vladimir_S]

Иначе излишние команды.

Задание внимательно прочитали?

составьте программу нахождения максимального из чисел, встречающихся в заданном двухмерном массиве более одного раза.

Абсолютно верно! То, что кажется моему тёзке "излишним", как раз и есть проверка неоднократности.

 

[Студент-2000]

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

 

[Студент-2000]

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

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

 

[Студент-2000]

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

 

[Студент-2000]

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