Технический форум

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

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

- - Массивы (http://www.tehnari.ru/f41/t86844/)

Rival

27.03.2013 15:45

Массивы

Вводится, любой, двумерный нечетный массив.(обязательно нечетный)
Пример нечетного массива 5x5 на фото. На рисунке в нем выделен ромб, все элементы его граней нечетные. Среди элементов, находящихся за его гранями найти максимальный. На фото эти элементы обведены кругами. Среди них максимальный 7.
Помогите пожалуйста. У меня вообще нет идей, как вывести этот максимальный элемент. Ведь это ни диагональ и ни строка обо что операться я не знаю.

Rival

27.03.2013 15:46

Вложений: 1

Не добавилось фото в предыдущем посте.

Vladimir_S

27.03.2013 15:53

Цитата:

Сообщение от Rival (Сообщение 887030)

У меня вообще нет идей, как вывести этот максимальный элемент.

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

Rival

27.03.2013 16:01

Цитата:

Сообщение от Vladimir_S (Сообщение 887037)

Извиняюсь, пока писал задание забыл написать язык.( На Паскале надо.

Vladimir_S

27.03.2013 16:50

Цитата:

Сообщение от Rival (Сообщение 887043)

Извиняюсь, пока писал задание забыл написать язык.( На Паскале надо.

Ну, тогда-то что...

Код:

Const

 N=7;

Var

 A:Array[1..N,1..N] of Integer;

 i,j:Byte;

 Max:Integer;

Begin

 Randomize;

 For i:=1 to N do

  begin

   For j:=1 to N do

    begin

     A[i,j]:=Random(40);

     write(A[i,j]:6);

    end;

   Writeln;

  end;

 Writeln;

 Writeln;

 Max:=A[1,1];

 For i:=1 to (N div 2) do

  begin

   for j:=1 to (N div 2)+1-i do

    if A[i,j]>Max then Max:=A[i,j];

   for j:=(N div 2)+1+i to N do

    if A[i,j]>Max then Max:=A[i,j];

  end;

 For i:=(N div 2)+2 to N do

  begin

   for j:=1 to i-(N div 2)-1 do

    if A[i,j]>Max then Max:=A[i,j];

   for j:=N+(N div 2)+2-i to N do

    if A[i,j]>Max then Max:=A[i,j];

  end;

 Writeln('Max = ',Max);

 Readln

End.

Rival

27.03.2013 17:07

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

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