У меня тут такои во непонимаю вот : каково назначения группы элементов Предметный указатель? посогите по информатике если что 6класс 137 странитса 1 номер

* "F" (file) specs define files and other i/o devices

    FARMstF1   UF   E        K     Disk    Rename(ARMST:RARMST)

     * "D" specs are used to define variables and parameters

     * The "prototype" for the program is in a separate file

     * allowing other programs to call it

     /copy cust_pr

     * The "procedure interface" describes the *ENTRY parameters

    D getCustInf      PI

    D  pCusNo                        6p 0   const

    D  pName                        30a

    D  pAddr1                       30a

    D  pAddr2                       30a

    D  pCity                        25a

    D  pState                        2a

    D  pZip                         10a

     /free

       // The "chain" command is used for random access of a keyed file

       chain pCusNo ARMstF1;

       // If a record is found, move fields from the file into parameters

       if %found;

          pName  = ARNm01;

          pAddr1 = ARAd01;

          pAddr2 = ARAd02;

          pCity  = ARCy01;

          pState = ARSt01;

          pZip   = ARZp15;

       endif;

       

     // RPG makes use of switches.  One switch "LR" originally stood for "last record"

     //LR actually flags the program and its dataspace as removable from memory.

       *InLR = *On;

     /end-free

Объяснение:

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40