{* Задача 461 *}

Unit ZADACH461;
Interface
Implementation
Begin
 writeln('Дан двумерный массив а, размером (n x n) (или квадратная матрица а). Найти среднее арифметическое положительных элементов ее побочной диагонали.');
End.

Program pr5;

Uses zadach461.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 4;
Var {* Необходимые переменные *}
  a  : Array [1..n, 1..n] Of integer;
  i  : integer;
  j  : integer;
  k  : integer;
  s  : integer;
  sr : real;
  Begin
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    a[i, j] := random(10) - 5;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
For j := 1 To n Do {* Цикл для j => [1 .. n] *}
  write (a[i, j] : 4);
writeln; {* Пустая строка *}
End.