Vladimir_S
спасибо большое, но ксати у меня получилось сделать это без дополнительного вектора, что тоже правильно))
теперь проблема в другом, не совсем корректно работает вот эта часть программы
Код HTML:
Function Up (x:mas; C:Byte):Real;
Var i,j,T:byte;
Fl:boolean;
Begin
T:=0;
For i:=1 to C do
begin
Fl:=true;
For j:=1 to C-1 do
If x[i,j]<x[i,j+1] then Fl:=false;
if Fl then T:=T+1;
end;
Up:=T;
End;
тут же через досрочный выход нужно..я сделал, а он некорректно считает кол-во упорядоченных в первой матрице..почему-то еще прибавляет лишнее туда.