Procedure вывода элементов матрицы, которые находятся между диагоналями (дописать в программу) Pascal ABC

[программирование]

добрый вечер, уважаемые программисты. помогите, пожалуйста написать программу (а именно, написать Function, которая будет взаимодействовать с программой, которая написана ниже).

program jh_1;
uses crt;
type a=array[1..20,1..20] of integer;
     sort=array[1..20,1..20] of integer;
var n:integer;
    massiv:a;
    mass:sort;
i,j:integer;

procedure vid(n:integer);
var i,j:integer;
begin
  for i:=1 to n do begin
    for j:=1  to n do begin
      massiv[i,j]:=random(9)-5;
      write(massiv[i,j],'  ');
      end;      
      writeln;
      end;      
end;


procedure sor(n,i,j:integer);
var T,k,l:integer;
begin
mass:=massiv;
 for l:=1 to n do begin
       For i:=2  to n do 
           Begin  T:=mass[l,i];   j:=1;
                  While  T>mass[l,j] do  j:= j +1;
                  For k:=i-1 downto  j do mass[l,k+1] := mass[l,k];   mass[l,j]:=T;
           End;
        end;
       Writeln ('Упорядкований масив: ');
  for l:=1 to n do begin
   For i := 1 to n do Write(mass[i,l],' ');  Writeln;end;
end;



begin
clrscr;
writeln('введите розмер матрицы');
readln(n);
vid(n);
sor(n,i,j);
end.

эта программа работает праильно. про программу: в основной программе вводится размер матрицы, в Procedure Vid вводится матрица с помощью генератора случайных чисел Randomize, в Procedure Sort производится сортировка строк по спаданию.

написать в эту программу подпрограмму (Procedure) вывода элементов матрицы, которые находятся между диагоналями.

заранее, огромное спасибо.

[Sciv]

Офигеть. То есть Вы смогли написать

Procedure Sort производится сортировка строк по спаданию.

которая на порядок посложнее, чем

(Procedure) вывода элементов матрицы, которые находятся между диагоналями.

Ну держите:

Procedure NotDiagElem(n: integer; mas: a);
var i,j: integer;
begin
  for i:=1 to N do
    for j:=1 to N do
      if (i<>j) and ((n-i+1)<>j) then WriteLn(mas[i,j]);
end;

[Mad_Cat]

которые находятся между диагоналями.

имхо != не диагональные

for i:=1 to n div 2  do  begin
For j:= i+1 to  n-i do
write(mas[i,j],' ');
writeln;
end;
for i:= n div 2+1 to n  do begin
For j:= n-i+2 to  i-1 do
write(mas[i,j],' ');
writeln;
end;

9 3 2 9 9 4 1 8
2 4 8 2 3 1 3 0
0 0 2 6 5 7 1 3
6 7 5 0 6 9 8 7
4 8 3 1 8 6 7 8
3 2 8 9 4 5 7 0
5 0 0 2 1 1 8 9
6 4 1 7 5 3 6 1
=======================
3 2 9 9 4 1
8 2 3 1
6 5


9 4
0 2 1 1
4 1 7 5 3 6

[Poma][a]

Mad_Cat, ТС создал тему дубликат в разделе помощи студентам (тыц) Там он предоставил "картинку" как должна будет выглядеть матрица. Но форумное форматирование эту картинку испортило.. Но на почту всё пришло в целости и сохранности

      X   X   X    
X        X        X
X   X        X   X	
X        X        X
     X   X   X

Sciv c его экстрасенсорными способностями написал именно то, что хотел ТС

Только можно я устрою маленькие дебаты?

Procedure NotDiagElem(n: integer; mas: a);

Почему здесь не const ? Сразу 2 соображения в защиту const'a :
1) Мы просто выводим, ничего менять не нужно, НО нечаянно мы нажали n := <что-то не хорошее>, и всё..
2) Это память.. Будет у нас N = мильёну, и тут мы отведем сразу 2 место под хранение его.. А не жирно будет?

[Аватар]

Если уж дебаты, то нужно вспомнить о возможных проблемах со стеком, если mas достаточно большой и передается именно таким способом - по значению

Будет у нас N = мильёну, и тут мы отведем сразу 2 место под хранение его.. А не жирно будет?

А ни чего и не отведем. Только ошибка вывалится, если дальше попытаемся обратиться к не существующему элементу массива