Версия для печати темы

Автор: Симпотяжка 18.11.2004 17:56

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

Автор: volvo 18.11.2004 18:21

const
  nRow = 3;
  nCol = 4;

  number = 10;

var
  a: array[1 .. nRow, 1 .. nCol] of integer;
  i, j, k, s, T: integer;

begin
  for i := 1 to nRow do
    begin
      s := 0;
      writeln('ряд #', i);
      for j := 1 to nCol do
        begin
          write('a[', i, ', ', j, '] = ');
          readln(a[i, j]);
          if a[i, j] > 0 then
            s := s + a[i, j] { считаем сумму для положительных чисел }
        end;

     { если сумма превысила заданное число,
        сразу сортируем строку по убыванию }
      if s > number then
        begin
          for j := 1 to nCol do
            for k := j to nCol do
              if a[i, j] < a[i, k] then
                begin
                  T := a[i, j];
                  a[i, j] := a[i, k];
                  a[i, k] := T
                end;
        end;
    end;

  { печатаем результат }
  for i := 1 to nRow do
    begin
      for j := 1 to nCol do
        write(a[i, j]:4);
      writeln
    end;

end.

Автор: Симпотяжка 18.11.2004 18:25

Спасиба ты спас мне жизнь чмак