Элементы заданного целочисленного массива а1, а2, …, аN упорядочить по возрастанию- Pascal(Паскаль)

{
           Пример 3.4. Элементы  заданного  целочисленного массива
                       а1, а2, ..., аN упорядочить по возрастанию.

                                    Тест
                    ╔═══════════════════╦═════════════╗
                    ║       Данные      ║  Результат  ║
                    ╠═════╤═════════════╬═════════════╣
                    ║ N=4 │ A=(5,2,7,1) ║ A=(1,2,5,7) ║
                    ╚═════╧═════════════╩═════════════╝
}
 Program Regulation;
   Uses Crt;
   Type Mas = Array [1..10] of Real;
   Var A       : Mas;
       i, j, N : Integer;
       Tmp     : Real;
    {--------------------------------------------}
   Procedure Input; { описание процедуры ввода массива }
     Begin
       ClrScr;
       Write('Введите N = '); ReadLn(N);
       WriteLn('Введите элементы массива: ');
       For i := 1 to N do
         begin Write('A [ ' , i , ' ] = ');
               ReadLn(A[i])
         end;
     End; {of Input}
    {--------------------------------------------}
   Procedure Regulate; { описание процедуры упорядочения по возрастанию}
     Begin
       For i := 1 to N-1 do
         For j := i+1 to N do
           If A[i] > A[j] then
             begin Tmp:=A[i]; A[i]:=A[j]; A[j]:=Tmp
             end;
     End; {of Regulate}
    {--------------------------------------------}
   Procedure Output; { описание процедуры вывода результата }
     Begin
       WriteLn('Упорядоченный массив :');
       For i:=1 to N do Write( A[i] : 6 : 1);
       WriteLn; ReadLn
     End; {of Output}
    {--------------------------------------------}
  BEGIN
    Input;    { вызов процедуры ввода массива }
    Regulate; { вызов процедуры упорядочения по возрастанию}
    Output    { вызов процедуры вывода результата}
  END.


Leave a Comment

− 4 = 6