отсортировать получившийся массив от 1 до 1000

[гоша37]

var a:array [1..16] of integer;
    i,min,imin,k:integer;
begin
writeln;
for i:=1 to 16 do
    begin
    a[i]:=random(100)-10;
    write(a[i]:5);
end;
min:=a[1];
for i:=1 to 16 do
    begin
     if a[i]<min then
      begin
    min:=a[i];
imin:=i;
end;
end;
a[imin]:=1000;
writeln;
for i:=1 to 16 do
    write(a[i]:5);
    writeln;
end.

текст задачи:Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, заменить этот элемент элемент числом 1000.

теперь надо получившийся массив отсортировать от 1 до 1000

[Sciv]

А какое отношение Ваш код имеет к сортировке?

[Serge_Bliznykov]

вау. я тоже не могу понять, что означает "отсортировать от 1 до 1000" ?!
у вас в массиве 16 чисел (15 случайных и одно число равное 1000).
что нужно сортировать?!

Гоша, допустим, есть такой массив (для простоты я беру не 16 элементов, как у Вас в задаче, а только 8):
12 9 -5 27 -7 -2 5 3
после замены минимального элемента на 1000 получаем:
12 9 -5 27 1000 -2 5 3

теперь вопрос - как будет выглядеть массив после сортировки? (при чём здесь отсортировать от 1 (от какой единицы?!) и до 1000 почему до 1000, как тысяча связана с сортировкой?

[гоша37]

ну вот например ваш массив 12 9 -5 27 1000 -2 5 3
после сортировки он должен выглядеть так -5 -2 3 5 9 12 27 1000
методом пузырька вроде называеться, ну чтоб по возрастанию числа шли

[Stilet]

методом пузырька вроде называеться

Правильно )
Ну а почему примеры пузырьковой сортировки не поищещь?

[гоша37]

я просто в паскале непонимаю ничиго. искал примеры, нашел. подставлял вроде ну под свою задачу буквы, данные менял. ничиго неполучаеться

[Mad_Cat]

массив отсортировать от 1 до 1000

имхо сортировать тут надо от 1 элемента до элемента со значением 1000;
то есть по коду ТС от 1 до imin-1(хотя черт его знает включать надо 1000 в сортировку или нет, но скорее всего нет, так как слово "включительно" отсутствует в формулировке задачи)

под свою задачу буквы, данные менял

мдя......

[Serge_Bliznykov]

Mad_Cat, я же и задавал вопросы автору темы, в надежде услышать от него объяснение, зачем в задаче требуется сортировка от 1 до 1000! Так и не дождался. На самом деле, я тоже предполагал, что что требуется именно отсортировать массив от 1-го элемента до того элемента, который был минимальным (который мы заменили 1000).
ну тогда, для моего примера:
12 9 -5 27 -7 -2 5 3
12 9 -5 27 1000 -2 5 3

должно быть результатом:
-5 9 12 27 1000 -2 5 3

А включать 1000 или нет - в данном случае не принципиально, т.к. в массиве не может быть чисел больше 89 (смотри заполнение массива у TC), тогда 1000 всегда будет самым большим значением и после сортировки по возрастанию 1000 будет в конце, т.е. останется на своём месте.

ладно.
Гоша, попробуйте такой код:

var a:array [1..16] of integer;
    i, j, min,imin,k:integer;
begin
 ....

  a[imin]:=1000;
  writeln;
  for i:=1 to 16 do
     write(a[i]:5);
  writeln;

   {сортируем массив от 1-го элемента до imin]
  for i:=1 to imin-2 do
    for j:=i+1 to imin-1 do
       if a[i]<[a[j] then begin
          k := a[i];
          a[i] := a[j]; 
          a[j] := k
       end;

  WriteLn('Массив после сортировки:');
  for i:=1 to 16 do
     write(a[i]:5);
  writeln;

end.