Одномерный массив содержит 10000 неотрицательных целых чи- сел, на хранение каждого из которых отводится один байт. со- ставьте наиболее эффективную программу вывода на экран упо- по возрастанию элементов такого массива. !

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
const
  n=100; // заменить на 10000
var
  a:array[1..n] of byte;
  i:byte;
  j:integer;
begin
  // инициализация, для
  for j:=1 to n do a[j]:=Random(256);
  // собственно программа
  for i:=0 to 255 do
    for j:=1 to n do
      if a[j]=i then Write(i,' ');
end.

Тестовое решение:
5 8 9 11 11 14 14 17 18 19 21 22 24 24 29 30 33 36 40 45 46 47 55 55 56 58 61 62 64 66 68 73 74 75 85 88 91 94 96 96 96 98 102 103 108 109 111 111 116 119 122 123 129 129 130 135 137 139 143 144 149 149 155 155 160 169 170 173 177 178 181 182 190 193 196 198 199 199 200 206 206 207 209 222 224 225 226 229 230 235 237 240 243 246 249 250 251 252 254 255

Файловая система позволяет
систематизировать программы и
данные и организовать
упорядоченное управление этими
объектами.
На операционные системы
персональных компьютеров
наложила глубокий отпечаток
концепция файловой системы,
лежащей в основе ОС Unix. В ОС
Unix подсистема ввода-вывода
унифицирует доступа как к
файлам, так и к периферийным
устройствам. Под файлом при этом
понимают набор данных на диске,
терминале или каком-либо другом
устройстве.
Файловая система — это
функциональная часть
операционной системы,
обеспечивающая выполнение
операций над файлами. Файловая
система позволяет работать с
файлами и директориями
(каталогами) независимо от их
содержимого, размера, типа и т. д.
Файловая система – это система
управления данными.
Система управления данными –
система, пользователи которой
освобождаются от большинства
операций по физическому
манипулированию файлами и могут
сосредоточить внимание главным
образом на логических свойствах
данных.
Файловые системы ОС создают для
пользователей некоторое
виртуальное представление
внешних запоминающих устройств,
позволяя работать с ними не на
низком уровне команд управления
физическими устройствами, а на
высоком уровне наборов и
структур данных.
Файловая система (назначение):
скрывает картину реального
расположения информации во
внешней памяти;
обеспечивает независимость
программ от особенностей
конкретной конфигурации
компьютера (логический уровень
работы с файлами);
обеспечивает стандартные реакции
на ошибки, возникающие при
обмене данными.

program test;
var n:string;i,c,sh:integer;
begin
readln(n);
for i:=1 to length(n) do
begin
if (n[i]='б') or (n[i]='Б') then n[i]:='п';if (n[i]='п') or (n[i]='П') then n[i]:='б';
if (n[i]='в') or (n[i]='Б') then n[i]:='ф';if (n[i]='ф') or (n[i]='Ф') then n[i]:='в';
 if (n[i]='г') or (n[i]='Б') then n[i]:='к';if (n[i]='к') or (n[i]='К') then n[i]:='г';
 if (n[i]='д') or (n[i]='Б') then n[i]:='т';if (n[i]='т') or (n[i]='Т') then n[i]:='д';
 if (n[i]='ж') or (n[i]='Б') then n[i]:='ш';if (n[i]='ш') or (n[i]='Ш') then n[i]:='ж';
 if (n[i]='з') or (n[i]='Б') then n[i]:='с';if (n[i]='с') or (n[i]='С') then n[i]:='з';
 end;
writeln('1) ',n);
for i:=1 to length(n) do
 begin if (n[i] = 'С') or (n[i] = 'с')
then
  begin
    inc(c);
    n[i]:='ш';
  end;
if (n[i] = 'Ш') or (n[i] = 'ш')
then
inc(sh);
end;
writeln('2) ',n);
writeln('В предложении буква "Ш" встречаеться:',sh);
writeln('В предложении буква "C" встречаеться:',c);
end.