Процедуры и функции

[skyline17]

В одномерном массиве определить максимальное значение. Рассортировать до максимального значения по возрастанию. Результат вывести. Затем рассортировать после максимального значения по возрастанию и снова вывести. А затем рассортировать весь массив и снова вывести.

В программе должны быть и процедуры и функции.

Моя Программа:


Код Pascal

Const n=10;
type mas=array[1..n] of integer;
var Massiv:mas;
    max,i,pozicia,j,c:integer;
 
procedure vivod(Massiv:mas);
var i:integer;
begin
 for i:=1 to n do
  write(Massiv[i],' ');
writeln;
end;
begin
 for i:=1 to n do
  begin
   write('Введите ',i,' элемент');
   readln(Massiv[i]);
  end;
write('Входной массив ');
vivod(Massiv);
 max:=Massiv[1];
 pozicia:=1;
 for i:=1 to n do
  if Massiv[i]>max then
   begin
    max:=Massiv[i];
    pozicia:=i;
   end;
  for i:=pozicia-1 downto 2 do
  for j:=1 to i do
   if Massiv[j]>Massiv[j+1] then
    begin
     c:=Massiv[j];
     Massiv[j]:=Massiv[j+1];
     Massiv[j+1]:=c;
    end;
write('первое преобразование ');
vivod(Massiv);
for i:= pozicia+1 to n-1 do
   for j:=i+1 to n do
    if Massiv[i]>Massiv[j] then
     begin
      c:=Massiv[i];
      Massiv[i]:=Massiv[j];
      Massiv[j]:=c;
     end;
write('второе преобразование ');
vivod(Massiv);
for i:=n-1 downto 2 do
  for j:= 1 to i do
    if Massiv[j]>Massiv[j+1]  then
     begin
      c:=Massiv[j];
      Massiv[j]:=Massiv[j+1];
      Massiv[j+1]:=c;
     end;
write('Итоговое преобразование ');
vivod(Massiv);
 
readln;
end.

Нужно добавить Сортировку в мою программу или написать вашу.

[NetSpace]

//----- сортируем по размеру в порядке возрастания --------------------
c1,c2,c3:Integer;         
for j:=1 to n-1 do for i:=1 to n-1 do
         begin
            c1:=Massiv[i];
            c2:=Massiv[i+1];
            if(c2<c1)then
            begin
               c3:=Massiv[i+1];//запоминаем i+1-й элемент
               Massiv[i+1]:=Massiv[i];//сдвигаем на 1 вверх
               Massiv[i]:=c3;//меняем на большее значение
            end;
         end;