Действительная квадратная матрица порядка n

[minimesqa]

Помогите пожалуйста!!!! Нужен код.
Дана действительная квадратная матрица порядка n. Найти наибольшее значение элементов, расположенных в заштрихованной части матрицы n.

Uses crt;
Const n=5;
Type mas=array[1..n,1..n] of integer;
Var x:mas; max:integer;
 Procedure Vvod(Var x:mas; n:integer);
 Var i,j:integer;
   Begin
     for i:=1 to n do
      for j:=1 to n do x[i,j]:=Random(100);
   End;
 Procedure Print(x:mas; n:integer);
 Var i,j:integer;
   Begin
     for i:=1 to n do
      Begin
        for j:=1 to n do Write(x[i,j]:4);
        WriteLn;
      End;
   End;
 Procedure max_elem(Var max:integer; x:mas; n:integer);
 Var i,j,im,jm,k:integer;
   Begin
     max:=0;
     Write('vvedite nomer risunka=');
     ReadLn(k);
     for i:=1 to n do
      for j:=1 to n do
       Case k of if (j>=i) and (n-i+1<=j) and (x[i,j]>max) then
          Begin
            max:=x[i,j]; im:=i; jm:=j;
          End;
     Begin clrscr; randomize;
   Vvod (x,n);
   Print(x,n);
   max_elem(max,x,n);
   ReadLn;
 End.

правильно?

[Вадим Мошев]

А вот проверьте сами. Возьмите матрицу, посчитайте "руками" сначала, а потом сравните с вычисленным на Пк с помощью вашей программы результатом. Если есть хотя бы одно расхождение, значит, неправильно.

[minimesqa]

Сообщение от Вадим Мошев

А вот проверьте сами. Возьмите матрицу, посчитайте "руками" сначала, а потом сравните с вычисленным на Пк с помощью вашей программы результатом. Если есть хотя бы одно расхождение, значит, неправильно.

Да я пытался, что-то у меня не получается. Не стал бы флудить попросту.

[Вадим Мошев]

что значит "не получается"? В чём конкретно проблема?

[minimesqa]

Да вообще во всем,ничего не понимаю. Запутался. Мне уже кажется, что я рассчитал половину матрицы, а не 1/4.

[BDA]

Давайте лучше начнем с вопроса, программа у Вас компилируется? Лично у меня нет
Второй вопрос - целые числа являются частью действительных (вложены в них), т.е. тип элементов матрицы real, а не integer.
В принципе, логика правильная.
Поиск максимума:

  max := x[1, n];
  for i := 2 to n do
    for j := (n + 1 + abs(n - 2 * i + 1)) div 2 to n do
      if x[i, j] > max then
        max := x[i, j];