И какие проблемы?
Элементы над главной диагональю перечисляются очень просто:
Code
for i:=2 to 5 do
for j:=1 to i-1 do
Вот пример функции, которая вернёт true, если положительных больше, а false, если Matrix[3][3] больше:
Code
type
_Matrix=array[1..5,1..5] of real;{или любой порядковый тип}
function Test(Matrix:_Matrix):boolean;
var
i,j,k:byte;
begin
Test:=true;
if Matrix[3][3]<0 then
Exit;
k:=0;
for i:=2 to 5 do
for j:=1 to i-1 do
if Matrix[i][j]>0 then
Inc(k);
if k<=Matrix[3][3] then
Test:=false;
end;
Quote
отсортировать по возростанию всю матрицу
Экстрасенсы в отпуске, а способов сортировки туева хуча!
Сокральный смысл этой фразы мне не дано понять 
.
