характеристикой рядка целочисленной матрицы назовем сумму и отрицательных парных елементов. переставляя рядки заданой матрицы , расположить их в соответствии до не уменьшених(незменшених) характеристик(сортировка обменом)
помогите пожалуйста ато не могу понять условие заранее спасибо
де ты такое задание откапал
попроси преподавателя своего что бы перефразировал задание, а то врятли кто-то поможет
если я правильно понял то тут нужно найти суму отрицательных при чом парных елементов матрицы, и потом расположить их по увеличению при помощи сортировки обмена
условие
характеристикой рядка целочисленной матрицы назовем сумму и отрицательных парных елементов. переставляя рядки заданой матрицы , расположить их в соответствии до не уменьшених(незменшених) характеристик(сортировка обменом)
если я правильно понял то тут нужно найти суму отрицательных при чом четных елементов матрицы, и потом расположить их по увеличению при помощи сортировки обмена
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 |