Паскаль Матрицы

[Таня.Ку]

const n=10;
type matr=array[0..n, 0..n] of integer;
Для матрицы создать следущие функции:
Max(A: matrix): integer; определяющую максимальный элемент матрицы в заштрихованной области.
........[]
.....[][][]
..[][][][][]
[][][][][][][]

[Google2010]

max:=a[0,n];
k:=n;
for i:=1 to n do
begin
if k>=2 then k:=k-2;
for j:=n downto k do
if a[i,j]>max then max:=a[i,j];
end;
writeln('max=',max);

-оберните в функцию и все))

[Kotlyar562]

Сообщение от Таня.Ку

const n=10;
type matr=array[0..n, 0..n] of integer;
Для матрицы создать следущие функции:
Max(A: matrix): integer;

Во-первых имя типа matr,поэтому и А будет типа matr; во-вторых Ваша штриховка заканчивается на 5м рядке (для даного случая). Поэтому можно написать примерно так:

function max(a:matr):integer;
var
  i,j,m: integer;
begin
  m:=a[1,n]; 
  k:=1;
  for i:=2 to 5 do \\ идем по строкам сверху вниз начиная со второй
  begin
    for j:=n downto n-2*k do \\перебираем нужное количество элементов строки справа на лево
      if a[i,j]>m then m:=a[i,j];  
    k:=k+1;  
  end;
  max:=m;
end;

В общем случае штриховка будет заканчиваться на n/2-ом рядке для парного n и на (n+1)/2-ом для непарного.