Дан двумерный массив. Найдите сумму и количество элементов в каждом столбце положительных и лежащих выше главной диагонали.
For i:=1 to n do begin for j:=1 to m do begin if (i0) then sum:=sum+a[i,j]; kol:=kol+1;