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

[B&M]

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

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

[amega]

де ты такое задание откапал
попроси преподавателя своего что бы перефразировал задание, а то врятли кто-то поможет

[TarasBer]

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

Я тоже.

[Айра]

характеристикой строки целочисленной матрицы назовем сумму i отрицательных парных (вот это не пойму, про характеристику эту) элементов. Отсортировать обменом строки матрицы по не убыванию характеристик

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

[B&M]

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

[volvo]

отрицательных парных

и отрицательных ЧЕТНЫХ - случайно не одно и то же?

А вообще, посмотри в FAQ-е тему про методы сортировки, и найди там "пузырек". Добавляешь в ту процедуру вложенную функцию вычисления характеристики, и задача решается в 10 строк...

[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 - 25.02.2009 21:54