7lab

program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  X: array[1..10, 1..7] of integer;
  Sum: array[1..10] of integer;
  i, j, z, swap: integer;

begin
  Randomize;

  for i := 1 to 10 do
    for j := 1 to 7 do
      X[i, j] := random(10) - random(10);

  Write('ВВЕДЕННАЯ МАТРИЦА:');

  writeln;

  for i := 1 to 10 do
  begin
    writeln;
    for j := 1 to 7 do
      write(X[i, j]:3, '   ');
  end;

  writeln;
  writeln('---------------------------------------------');
  writeln;

  Write('ОТСОРТИРОВАННАЯ ПО УБЫВАНИЮ ЭЛЕМЕНТОВ СТРОК ');

  writeln;

  for z := 1 to 9 do
    for i := 1 to 10 do
      for j := 1 to 6 do
        if X[i, j] < X[i, j + 1] then
        begin
          swap := X[i, j];
          X[i, j] := X[i, j + 1];
          X[i, j + 1] := swap;
        end;

  for i := 1 to 10 do
  begin
    writeln;
    for j := 1 to 7 do
      write(X[i, j]:3, '   ');
  end;

  for i := 1 to 10 do
    for j := 1 to 7 do
      if (X[i, j] mod 2 = 0) and (X[i, j] > 0) then
        SUM[i] := SUM[i] + X[i, j];

  writeln;
  writeln;

  write('Сумма четных неотрицательных элементов строк:');
  writeln;
  writeln;

  for i := 1 to 10 do
    write(SUM[i], ' ');
  writeln;
  writeln('---------------------------------------------');

  for z := 1 to 9 do
    for i := 1 to 9 do
      if Sum[i + 1] < Sum[i] then
        for j := 1 to 7 do
        begin
          Swap := X[i + 1, j];
          X[i + 1, j] := X[i, j];
          X[i, j] := Swap;
          Swap := Sum[i + 1];
          Sum[i + 1] := Sum[i];
          Sum[i] := Swap;
        end;

  writeln;

  Write('ОТСОРТИРОВАННАЯ ПО СУММЕ ЧЕТНЫХ НЕОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ В СТРОКЕ');

  writeln;

  for i := 1 to 10 do
  begin
    writeln;
    for j := 1 to 7 do
      write(X[i, j]:3, '   ');
  end;

  writeln;
  writeln;

  write('Сумма четных неотрицательных элементов строк');

  writeln;
  writeln;

  for i := 1 to 10 do
    write(SUM[i], ' ');

  readln;

end.