1)Пeрeписать в файл по столбцам матрицу, у которой меньше положительных элементов в нижнем треугольнике(в случае равенства, переписать обе). - помогите с реализацией.в подпрограммах желательно
2)Упорядочить главную диагональ матрицы по возрастанию подпрограммой.(матрица- квадратная естестна)
(главное - вот так объявлены матрицы в основной программе, чтоб путаницы не было
const nmax=10;
type matr1=array[1..nmax,1..nmax] of integer;
type matr2=array[1..nmax,1..nmax] of integer;
var
x1,x2:matr1;
)
вот пытался сделать, но чот не пашет(
procedure Sort(var x:matr1;maxx:integer);
var
aa:array [1..nmax,1..nmax] of real;
k,a:integer;
temp:real;
begin
for k:=1 to nmax do begin
aa[k,k]:=x[k,k];
for i:=1 to (nmax-1) do
for j:=i+1 to (nmax) do
if a[i]>a[j] the begin
for k:=1 to nmax do begin
temp:=x[i,k];
x[i,k]:=x[j,k];
x[j,k]:=temp
end;
end;
end;