Среди элементов матрицы, находящихся за гранями ромба найти максимальный

@blaze19 · Регистрация: 13.03.2013

Author24 — интернет-сервис помощи студентам

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

@blaze19 · 27.03.2013, 16:14 **[ТС]**

Есть программа, которая находит макс элемент. Но нужно ее исправить так, чтобы вручную вводить колличество элементов, а не через const. И чтобы при вводе четного четного числа выдавало "нужно ввести нечетное число"

Pascal

uses crt;
const
N=5;
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.

@blaze19 0 / 0 / 2 Регистрация: 13.03.2013 Сообщений: 37
		1
	Среди элементов матрицы, находящихся за гранями ромба найти максимальный 27.03.2013, 13:16. Показов 996. Ответов 1 Метки нет (Все метки) Прошу помочь. Вводится двумерный нечетный массив.(обязательно нечетный) Пример нечетного массива 5x5 на фото. На рисунке в нем выделен ромб, все элементы его граней нечетные (так как массив нечетный) Среди элементов, находящихся за его гранями найти максимальный. На рисунке элементы за гранями это:2,0,4,1,6,0,7,5,4,2,0,1 Среди них максимальный 7. Вот он его и должен в ответе выводить. Миниатюры 0

	27.03.2013, 16:14

Среди элементов матрицы, находящихся за гранями ромба найти максимальный

Решение