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

[NikiTaMoz]

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

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

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


Код 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.

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