Помогите пожалуйста написать программу которая будет сортировать массив тремя способами ( пузырьком, от большего к меньшему и от меньшего к большему ) , массив надо описать в самом начале через type , вариант сортировки нужно сделать с помощью оператора case , а сортировки function или procedure и вывести на экран получившейся массив с помощью оператора procedure, язык паскаль 

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 1 минуту и 35 секунд
suv121, посмотри тут:
http://forum.vingrad.ru/faq/topic-200441.html

И попробуй переделать под нужные условия.

у меня получилась вот такая программа , но помогите мне её закончить :
Program A;
Const N:Integer;
Type vector=array[1…n] of integer;
Var
I:Integer;
J:Integer;    
K:Integer;
Tmp:Real;
ch:char;
begin
 repeat
  writeln('Vyberite variant sortirovki:'); 
  writeln('1 - Sortirovka 1'); 
  writeln('2 - Sortirovka 2');
  writeln('3 - Sortirovka 3');
  writeln;
  write('...');
  ch:=readkey;
 until (ch='1') or (ch='2') or (ch='3');
 case ch of 
  '1': Sortirovka 1;
  '2': Sortirovka 2;
  '3': Sortirovka 3
;
 end;
 readkey;
end.

procedure Sortirovka 1;
var 
Arr :vector; 
begin    
for i:=0 to N-1 do        
for j:=0 to N-1-i do            
if Arr[j]>=Arr[j+1] 
then            
begin
Tmp:=Arr[j];
Arr[j]:=Arr[j+1];
Arr[j+1]:=Tmp; end;
end;

 procedure Sortirovka2;
var
Arr:vector;
Begin
dec(N);
i:=1;    
repeat j:=0;        
repeat 
if Arr[i]<=Arr[j] 
then            
begin                k:=i;                Tmp:=Arr[i];                
repeat                    Arr[k]:=Arr[k-1];                    dec(k);                
until 
not(k>j);                Arr[j]:=Tmp;                j:=i;            
end            
else inc(j);        
until 
not(j<i);        inc(i);    
until 
not(i<=n);
end;

procedure Sortirovka3;
var Arr :vector;
begin    dec(N);    i:=1;    
repeat        j:=0;        
repeat            
if Arr[i]>=Arr[j] 
then            
begin                k:=i;                Tmp:=Arr[i];                
repeat                    Arr[k]:=Arr[k-1];                    dec(k);                
until 
not(k>j);                Arr[j]:=Tmp;                j:=i;            
end            
else inc(j);        
until 
not(j<i);        inc(i);    
until 
not(i<=n);
end;

Procedure print ????????

я не знаю как вывести результат сортировки

!  mr.Anderson

Модератор: пользуйтесь тегами подсветки кода!