помогите срочнооо!!!)

составить программу на языке Pascal, которая в одномерном массиве А {5; 2,3; 10; 12,1; 0; 3,3} расставляет элементы в порядке убывания.

1

Ответы и объяснения

2012-04-21T01:06:02+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

type array100 = array [1..100] of integer;
var x,y:array100;
i,n,min,max:integer;

procedure QuickSort(var a:array100;low:integer;high:integer);
var i,j,x,t:integer;
begin
  i:=low;
  j:=high;
  x:=A[(low+high) div 2];
 
  repeat
    while(A[i]>x) do
      i:=i+1;
    while(A[j]<x) do
      j:=j-1;
    if(i<=j) then begin
      t:=A[i];
      A[i]:=A[j];
      A[j]:=t;
      i:=i+1;
      j:=j-1;
    end;  
  until (i>j) or (i>=n);
 
  if(low<j) then QuickSort(A,low,j);
  if(i<high) then QuickSort(A,i,high);
end;

Begin
  randomize;
  n:=9;
  for i:= 1 to n do begin
    read(x[i]);
  end;
 
  QuickSort(y,1,n);
 
  writeln;
  for i:= 1 to n do begin
    write(x[i]:4);
    if i mod 10=0 then writeln;
  end;
 
End.