Матрица

[jinadaa]

Здравствуйте.
Возникла проблема при написании следующей программы:

Дана матрица, размерности N на M. Отсортировать ее в зависимости
от характеристик ее столбцов(Характеристика столбца - количество отрицательных элементов в нем)
Сортировать столбцы по убыванию


То есть, как я понимаю, надо запустить поиск отрицательных элементов,
потом вывести их в одномерный массив, отсортировать одномерный,
и исходя их этого, двумерный

[Z1000000]

Правильно ты понимаешь.

[jinadaa]

понимать - понимаю, но вот через одно место дохожу
до подсчета отрицательных элементов
вроде код правильный, а результаты настолько странные,
что я не представляю как оно так происходит интересно

Program Lab_5_3;
  uses crt;
  const N=2; M=3;
  var a:array[1..n,1..m]of real;
      b:array[1..n]of integer;
      i,j,k:integer;
Begin
  clrscr;
  for i:=1 to N do
   for j:=1 to M do
     Begin
       write('A[',i,',',j,']=');
       readln(A[i,j]);
     end;
  writeln('Mas A:');
  for i:=1 to N do
    Begin
      for j:=1 to M do
        write(A[i,j]:2:0, ' ');
      writeln;
    end;
  writeln;
  k:=0;
  for i:=1 to N do
  Begin
  B[i]:=0;
  for j:=1 to M do
   if A[i,j]<0 then
   inc(B[i]);
  end;
  write(B[i], ' ');
  readln;

End.

[Valio]

Яб создал массив Nx(M+1). В M+1 я буду хранить кол-во отрицательных элементов. И уже его сортировать.... вместе со столбцом.

[jinadaa]

а как запустить сортировку только столбцов?
бо объяснили сортировки одномерных массивов по убыванию и возрастанию,
а двумерные - самостоятельно

[Z1000000]

Так будет лучше...

Program Lab_5_3;
  uses crt;
  const N=2; M=3;
  var a:array[1..n,1..m]of real;
      b:array[1..m]of integer;
      i,j,k:integer;
Begin
  clrscr;
  for i:=1 to N do
   for j:=1 to M do
     Begin
       write('A[',i,',',j,']=');
       readln(A[i,j]);
     end;
  writeln('Mas A:');
  for i:=1 to N do
    Begin
      for j:=1 to M do
        write(A[i,j]:2:0, ' ');
      writeln;
    end;
  writeln;
  k:=0;
  for i:=1 to M do
  Begin
  B[i]:=0;
  for j:=1 to N do
   if A[j,i]<0 then
    inc(B[i]);
  write(B[i], ' ');
  end;
  readln;
End.

[jinadaa]

Ого, спасибо большой

еще вопрос
как связать сортировку одномерного с двумерным?

[jinadaa]

ладно, спасибо и на этом большое

[Valio]

Const N = 3;
      M = 5;

Var   A : Array [1..N + 1, 1..M + 1] Of Integer;
      i, j : Integer;

Begin

Randomize;
For i := 1 To N Do
  Begin
    For j := 1 To M Do
      Begin
        A[i,j] := Random(10) - 7;
        Write(A[i,j], ' ');
        If A[i,j] < 0 Then A[N+1,j] := A[N+1,j] + 1;
      End;
    Writeln;
  End;

Writeln;
For j := 1 To M Do Write(A[N+1,j], ' ');

Readln;
End.

A[i, M + 1] - столбец буфер для того чтоб хранить столбец при перестановке.
A[N+1, j] - строка кол-ва отрицательных элементов в j столбце.

Дальше несложно дописать сортировку.

[jinadaa]

По-моему, мое начало намного легче
ну мне во всяком случает так кажется