Дело в том, что у нас в Политехническом институте нужно сделать 9 лабараторных робот до екзаменов. Я сделал все кроме одной. В восьмой работе нужно было создать програму сортировки массива.

Задача: Существует массив. Отсортировать его по возрастанию.



Я эту прогу написал. Но в девятой работе моя задача такова: Добавить процедуры в эту прогу. Не нужно менять код программы - только добавить процедуры. Помогите пожалуйста. Я не знаю как это сделать. Заранее огромное спасибо.

Zork
Во-первых, это есть в ФАКе именно в виде процедуры...
Ну, а код будет таким, например:

Например так:

program sortplus;
const n=10;
var
  a:array[1..n] of integer;
  i,j,b:integer;

  Procedure Swap;
  Begin
    b:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=b;
  End;

begin
  writeln('Введите массив из ',n,' чисел');
  for i:=1 to n do readln(a[i]);
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then Swap;
  write('Получившийся массив');
  for i:=n downto 1 do write(' ',a[i]);
  readln;
end.

Огромное Вам СПАСИБО.