сортировка обменом, помогите написать прогу Опции

[B&M]

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

помогите пожалуйста ато не могу понять условие заранее спасибо

[B&M]

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

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=8;
type
mas=array[1..n] of integer;
var a:mas; i,j:byte;    s:integer;  c,p:word;
procedure obmen(var a:mas; var c,p:word);
var i,j:byte;
b,s:integer;

begin
for i:=1 to n do
if (a[i]<0)and(a[i]mod 2<0) then
s:=s+a[i];
  begin
  for i:=2 to n do
    begin
    for j:=n downto i do
      begin
      c:=c+1;
      if a[j-1]>a[j] then
        begin
        p:=p+3;
        b:=a[j];
        a[j]:=a[j-1];
        a[j-1]:=b;
        end;
      end;
    end;
  end;
end;
begin
for i:=1 to n do
  begin
  a[i]:=random(100)-40;
  writeln(a[i]);
  writeln;
  end;
obmen(a,c,p);
 for i:=1 to n do
 write(a[i],' ':2);
 readln; readln;

 end.

М

1. Темы объединил, зачем было создавать вторую с тем же самым заданием? 2. Тегами пользуйся для выделения кода, без них код нечитабелен абсолютно... volvo

Сообщение отредактировано: volvo - 26.02.2009 1:54