Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю. (программа Паскаль)

Question

Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю.

Answer 1

program ff;
var A:array[1..100,1..100] of integer; {переменная массива}
    i,j,n:integer; {переменные для циклов}
    sum,kol:integer; {переменные суммы и кол-ва}
 
begin
write ('Vvedite razmer massiva A');
readln (n); {считываем размер массива}
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}
 
write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}
 
sum:=0; kol:=0; {сумме и кол-ву присваиваем изначально нули}
 
for i:=1 to n do
for j:=1 to n do {циклами проходим по матрице}
if (A[i,j]>0) and (i<j) then {прописываем условия положительные и выше диагонали}
begin inc(kol); sum:=sum+A[i,j]; end; {сумму и кол-во соответственно увеличиваем}
writeln;
writeln('Summa= ',sum); {выводим на экран сумму}
writeln('Kol-vo= ',kol);{выводим на экран кол-во}
 
readln;
end.

Answer 2

Var A:array[1..20,1..20] of integer;
    i,j,n,k,s:integer;
Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    k:=0;s:=0;
    For i:=1 to n do
     For j:=1 to n do
      if (i<j)and(A[i,j]>0) then
      Begin
        inc(k);
        s:=s+A[i,j];
      End;
    writeln('Сумма положительных над главной диагональю: ',s);
    writeln('Кол-во положительных над главной диагональю: ',k);
    readln;
End.