{* Задача 310 *}

Unit ZADACH310;
Interface
Implementation
Begin
 writeln('Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю.');
End.

Program zadach310;

Uses zadach310.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  n   : integer;
  i   : integer;
  l   : integer;
  j   : integer;
  sum : integer;
  a   : Array [1..180] Of Array [1..180] Of integer;
Begin
  clrscr; {* Очищаем экран *}
  randomize;
  write('Введите  количество  строк/столбцов  матрицы: ');
  readln(n);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      a[i, j] := trunc(random * 100) - random(80);
      write(a[i, j] : 4);
    End;
    writeln; {* Пропускаем одну строку *}
  End;
  l := 0;
  sum := 0;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
      If (a[i, j] > 0) And (j > i) Then
      Begin
        sum := sum + a[i, j];
        l := l + 1;
      End;
    
  End;
  writeln('Количество положительных элементов над');
  writeln('главной диагональю: ', l);
  writeln('Сумма положительных элементов над');
  writeln('главной диагональю: ', sum);
  readln
End.