Задача: составить программу для вода и расстановки по порядку целых случайных чисел из диапазона [1...100]. Массив содержит 20 элементов

1

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

2012-04-03T13:21:36+00:00

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

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

type array100 = array [1..100] of integer;

var a:array100;

i,n: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:=20;
  for i:= 1 to n do begin
    a[i]:=random(100) ;
    write(a[i]:4);
    if i mod 10=0 then writeln;
  end;
 
  QuickSort(a,1,n);


  for i:= 1 to n do begin
    write(a[i]:4);
    if i mod 10=0 then writeln;
  end;

End.