Дана вещественная квадратная матрица А порядка n. Найти среднее арифметическое среди положительных элементов матрицы, находящихся на главной и побочной диагоналях. Выдать сообщение, если таких элементов нет.

VAR    ans: Real;    n, i, j, kol: Integer;    a: Array of Array of Real; BEGIN    Read(n); SetLength(a, n+1);    For i := 1 to n do SetLength(a[i], n+1);    For i:= 1 to n do        For j := 1 to n do Read(a[i][j]);    For i := 1 to n do       If (a[i][i] > 0) then begin Inc(kol); ans := ans + a[i][i]; End;    If (kol > 0) then begin Writeln('Ср. ар. с гл. диагонали = ', ans / kol); kol := 0;ans := 0; End    Else Writeln('Элементов > 0 на гл. диагонали - нет !');    For i := 1 to n do       If (a[i][n-i+1] > 0) then begin Inc(kol); ans := ans + a[i][n-i+1]; End;    If (kol > 0) then Writeln('Ср. ар. с поб. диагонали = ', ans / kol)    Else Writeln('Элементов > 0 на поб. диагонали - нет !'); END.