Примеры информации , отсортированной : а)по алфавиту б) в порядке убывания в) в хронологической последовательности.

Пример отсортированной информации по алфавиту    :   журнал классного руководителя

1var i,sum: integer;       mas: array [1..10] of integer; begin      for i: =1 to 10 do begin                mas[i]: =random(20);                     write(' ',mas[i]);                   sum: =sum+mas[i];                                               end;   writeln;       write('среднее арифметическое этих чисел  = ',sum/10); end. 2  var i,max: integer; begin  readln(i);         while (i< > 0) do begin            if (i> max) then max: =i;                 readln(i);                               end;       writeln('максимальное число: ',max); end.

Const n=20; var a: array[1..n]of integer; i,b,k,c,f,g,h: integer; beginfor i: =1 to n do a[i]: =random(70)-20; for i: =1 to n dowrite(a[i],' '); writeln; for i: =1 to n do beginif (a[i] mod 5 = 0) and (a[i] mod 10< > 0) or (a[i]=50) then beginb: =i; for b: =i to (n-1) doa[i]: =a[i+1]; end; end; for i: =1 to n dowrite(a[i],' '); write('введите к '); read(k); for i: =1 to n do beginif a[i] mod i = 0 then beginc: =i; for i: =n downto c+1 do begina[i]: =a[i-1]; a[c+1]: =k; end; end; end; for i: =1 to n dowrite(a[i],' '); writeln; f: =0; g: =0; for i: =n downto 1 do beginif (a[i]> 0) then f: =i; end; if a[f]=0 then write('нет положительных '); for i: =n downto 1 do beginif (a[i]< 0) then g: =i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]< > 0) and (a[g]< > 0) then beginh: =a[f]; a[f]: =a[g]; a[g]: =h; end; for i: =1 to n dowrite(a[i],' '); writeln; end.