задача методы сортировки

[mad_ded]

а isfound ?
и temp := a[i]
a[i] := a[n]
a[n] := temp
что делает эта строка?

[mad_ded]

а есть решение моим способом?

[Hacker19_90]

isFound переменная типа boolean равна true когда мы нашли отрицательный элемент
и false когда не нашли!

ну а это

temp := a[i]
a[i] := a[n]
a[n] := temp

Обмен местами текущего отрицательного с последним!

[mad_ded]

так не рабит где ошибка?

program zd_2;
uses crt;
var a:array[1..100] of integer;
n,i,j,p,x,m,k,l,temp:integer;
isfound:boolean;
begin
clrscr;
randomize;
write('kol-vo elementov: ');
readln(n);
write('diapazon: ');
readln(k,l);
for i:=1 to n do
begin
a[i]:=random(l-k+1)+k;
end;
repeat
isfound:=false;
for i:=1 to n do
if a[i] < 0 then
begin
isfound:=true;
temp:=a[i];
a[i]:= a[n];
a[n]:=temp;
dec(n);
break;
end;
until isfound=false;
m:=1;
for i:=2 to n do
if a[i]>a[n] then
n:=i;
for i:=2 to n do
write(a[m]);
readkey;
end.



ошибка видимо в выводе?

[Hacker19_90]

дэк это не всё
Вам терь надо по возрастанию всё отсортировать это можно сделать линейной сортировкой вот так

for i := 1 to n -1 do
  for j := i + 1 to n do
    if a[i] > a[j] then
    begin
      a[i] := a[i] xor a[j];
      a[j] := a[i] xor a[j];
      a[i] := a[i] xor a[j];
    end;

и только после этого на вывод!

[mad_ded]

а что такое xor ?
п.с
спасибо что возитесь тут со мной)

[mad_ded]

program zd_2;
uses crt;
var a:array[1..100] of integer;
n,i,j,p,x,m,k,l,temp:integer;
isfound:boolean;
begin
clrscr;
randomize;
write('kol-vo elementov: ');
readln(n);
write('diapazon: ');
readln(k,l);
for i:=1 to n do
begin
a[i]:=random(l-k+1)+k;
end;
repeat
isfound:=false;
for i:=1 to n do
if a[i] < 0 then
begin
isfound:=true;
temp:=a[i];
a[i]:= a[n];
a[n]:=temp;
n:=n-1;
break;
end;
until isfound=false;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
a[i]:=a[i] xor a[j];
a[j]:=a[i] xor a[j];
a[i]:=a[i] xor a[j];
end;
for i:=1 to n do
write(a[m]);
readkey;
end.

[Hacker19_90]

xor -это побитовое исключающее или
таблица истинности для xor

a   b   a xor b
0   0       0
0   1       1
1   0       1
1   1       1

В данном коде приминяется для обмена местами без доп переменной
работает вот так
допустим a = 3 b = 2
в двоичном коде это
a = 11 b = 10

первый шаг
a := a xor b; //a = 01 b = 10;
второй шаг
b := a xor b; // a = 01 b = 11;
третий шаг
a := a xor b ; // a = 10 b = 11;

отсюда a = 10 = 2 b = 11 = 3

[mad_ded]

аааа ясн спс. а почему может быть вылет с ошибкой?

[temaps]

Тьфу. У меня любой восьмиклассник влёт это решает!
Возиться лень вот тебе решение в лоб без обдумывания:

...
 for i:=1 to n do
 begin
 a[i]:=random(l-k+1)+k;
 end;
{распечатываем исходный массив}
 for i:=1 to n do
 write(a[i],' ');
 writeln;

 {сортировка}
 for i:=1 to n-1 do
 begin
   for j:=i+1 to n do
   begin
     if a[i]>a[j] then
     begin
       p:=a[i];
       a[i]:=a[j];
       a[j]:=p;
     end;
   end;
 end;

 {удаление одинаковых}
 i:=1;
 while i<n do
 begin
   j:=i+1;
   while a[i]=a[i+1] do
   begin
     for j:=i+1 to n do a[j]:=a[j+1];
     n:=n-1;
     if i=n then break;
   end;
   i:=i+1;
 end;

{распечатываем результат}
 for i:=1 to n do
 write(a[i],' ');
 readkey;
 end.
....