Сортировка выбором в Паскале!

[wrmarw]

Привет! Мне нужно сделать работу, а я в этом полный НОЛЬ! Нужно сформировать при помощи генератора псевдослучайных чисел линейный целочисленный массив A[20], таким образом, чтобы элементы массива принадлежали отрезку [-50, 50], выполнить в нём линейный поиск введенного с клавиатуры элемента, отсортировать выбором и выполнить бинарный поиск элемента.
Программа в интернете нашлась вроде полезная:

procedure SelectSort(var d:vector;kol2:integer);
var j,min,nmin,k:integer;
begin
j := 1;
repeat
min := 100;
for i := j to kol2 do
if d[i] < min then begin min := d[i]; nmin := i; end;
for k := nmin downto j+1 do d[k] := d[k-1];
d[j] := min;
j := j + 1;
until j = kol2;
end;


но что с ней делать и как ее адаптировать к моему случаю ума не приложу. Для меня это все китайский язык!
Помогите, пожалуйста!

[ROMA2PVT]

program Find_Bin;
const
Count =20;
M : array[1..Count] of byte =
(20,20,19,19,19,18,17,17,12,12,11,10,9,9,5,5,3,3,2,1);
var
N, I, First, Last : Byte;
A : integer;
Found : boolean ;
begin
Writeln('Исходный массив:');
for I := 1 to Count do Write (M[I] :3,' '); Writeln; Writeln;
Write('Введите значение элемента массива для поиска >');
Readln(N);
A:=0;
First := 1;
Last := Count;
Found:=False; {Элемент не найден}
repeat {Повторять поиск}
I := (First + Last) div 2; {Разделить на две части}
if M[I] = N then Found:=True
else
begin
if M[I] > N then First := I+1 {Искать элемент в правой части}
else Last := I-1; {Искать элемент в левой части}
end;
A:=A+1; {Увеличить счетчик числа итераций}
until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
if Found then Writeln('Искомый элемент ',N,' в массиве занимает ',I,'-ю позицию')
else
Writeln('В массиве нет искомого элемента ',N);
Writeln('Поиск выполнен За ',A,' итераций');
end.

Бинарный поиск.Только массив рандомно заполни и всё.

[wrmarw]

Дорогущий, многоуважаемый, любимый ROMA2PVT!!!!!!!!!! Спасибо огромнейшее!!! (Сейчас будет тупая фраза, приготовься!!!) ЧТО ЗНАЧИТ РАНДОМНО ЗАПОЛНИ???
Да, я тупой, я вообще в этом не разбираюсь. Слово "РАНДОМНО ЗАПОЛНИ" для меня звучит примерно как "jtrthr;l/thjjhjhkgk" понимаете?!!! ((
эххх...

[wrmarw]

а "бинарный поиск" и того хуже...

[ROMA2PVT]

Рандомно-это заполнение массива случайными числами.Т.е. так

randomize;
for i:=1 to n do
begin
a[i]:=random(10)-5;
end;

[wrmarw]

ээээ, ясно, спасибо. а куда это теперь написать???

[Grag]

Прошу великодушно извинить, но:
Двоичный (бинарный) поиск (также известен как метод деления пополам и дихотомия) — классический алгоритм поиска элемента в отсортированном массиве (векторе)

wrmarw, в твоем случае рандомно заполнить массив нужно так:

randomize;
for i:=1 to 20 do
  a[i]:=random(101)-50;

В этом случае массив A:array[1..20] of integer
А линейный поиск, сортировка выбором и бинарный поиск - отдельная тема за отдельную договоренность...

[ROMA2PVT]

program Find_Bin;
const
Count =20;
var
N, I, First, Last :integer;
A,x,j,k : integer;
Found : boolean ;
M : array[1..Count] of integer;
begin
Writeln('Исходный массив:');
randomize;
for I := 1 to Count do
begin
m[i]:=random(101)-51;
Write (M[i],' ');
end;
Writeln;

for i:=1 to count-1 do
 begin
   j:=i;
   for k:=i+1 to count do
    if m[k]>m[j] then j:=k;
   x:=m[j];
   m[j]:=m[i];
   m[i]:=x;
 end;
 writeln;
 writeln('Отсортированный массив: ');
for i:=1 to count do
begin
write (m[i],' ');
end;
writeln;
Write('Введите значение элемента массива для поиска >');
Readln(N);
A:=0;
First := 1;
Last := Count;
Found:=False; {Элемент не найден}
repeat {Повторять поиск}
I := (First + Last) div 2; {Разделить на две части}
if M[i] =N then Found:=True
else
begin
if M[i]>=N then First:=I+1 {Искать элемент в правой части}
else Last:=I-1; {Искать элемент в левой части}
end;
A:=A+1; {Увеличить счетчик числа итераций}
until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
if Found then Writeln('Искомый элемент ',N,' в массиве занимает ',I,'-ю позицию')
else
Writeln('В массиве нет искомого элемента ',N);
Writeln('Поиск выполнен За ',A,' итераций');
end.

Вот подправил бинарный поиск.Вроди косяков нет.

[wrmarw]

cпасибо, ROMA2PVT, но тут ошибка какая-то: написано арифметическое переполнение!
что же делать?!

................

[wrmarw]

наверное, пойду повешусь...