Алгоритм сортировки фон Неймана. Упорядочить массив а1, а2, ..., ат по неубыванию с помощью алгоритма сортировки слияниями:

uses crt;
type mas=array[0..100] of integer;
procedure MergeSort(var m:mas;n:integer);
var
c:boolean;
i,i1,i2,n1,n2,j,k,tmp,len:integer;
b:mas;
begin
len:=1;
c:=true;
while len<n do
 begin
  if c then
   begin
    i:=0;
    while i+len<=n do
     begin
      i1:=i+1;
      i2:=i+len+1;
      n1:=i+len;
      n2:=i+2*len;
      if n2>n then
       begin
        n2:=n;
       end;
      while(i1<=n1)or(i2<=n2)do
       begin
        if i1>n1 then
         begin
          while i2<=n2 do
           begin
            i:=i+1;
            b[i-1]:=m[i2-1];
            i2:=i2+1;
           end;
         end
        else
         begin
          if i2>n2 then
           begin
            while i1<=n1 do
             begin
              i:=i+1;
              b[i-1]:=m[i1-1];
              i1:=i1+1;
             end;
            end
          else
           begin
            if m[i1-1]>m[i2-1] then
             begin
              i:=i+1;
              b[i-1]:=m[i2-1];
              i2:=i2+1;
             end
            else
             begin
              i:=i+1;
              b[i-1]:=m[i1-1];
              i1:=i1+1;
             end;
           end;
         end;
       end;
     end;
    i:=i+1;
    while i<=n do
     begin
      b[i-1]:=m[i-1];
      i:=i+1;
     end;
   end
  else
   begin
    i:=0;
    while i+len<=n do
     begin
      i1:=i+1;
      i2:=i+len+1;
      n1:=i+len;
      n2:=i+2*len;
      if n2>n then
       begin
        n2:=n;
       end;
      while (i1<=n1)or(i2<=n2)do
       begin
        if i1>n1 then
         begin
          while i2<=n2 do
           begin
            i:=i+1;
            m[i-1]:=b[i2-1];
            i2:=i2+1;
           end;
         end
        else
         begin
          if i2>n2 then
           begin
            while i1<=n1 do
             begin
              i:=i+1;
              m[i-1]:=b[i1-1];
              i1:=i1+1;
             end;
           end
          else
           begin
            if b[i1-1]>b[i2-1] then
             begin
              i:=i+1;
              m[i-1]:=b[i2-1];
              i2:=i2+1;
             end
            else
             begin
              i:=i+1;
              m[i-1]:=b[i1-1];
              i1:=i1+1;
             end;
           end;
         end;
       end;
     end;
    i:=i+1;
    while i<=n do
     begin
      m[i-1]:=b[i-1];
      i:=i+1;
     end;
   end;
   len:=2*len;
   c:= not c;
  end;
 if not c then
  begin
   i:=1;
   repeat
   m[i-1]:=b[i-1];
   i:=i+1;
   until not(i<=n);
  end;
end;
var a:mas;
    n,i:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
MergeSort(a,n);
writeln('Сортировка:');
for i:=0 to n-1 do
write(a[i],' ');
readln
end.

Хмара тегів (хмара слів, або зважений список, представлена (-ий) візуально) — це візуальне подання списку категорій (або тегів, також званих мітками, ярликами, ключовими словами, тощо). Зазвичай використовується для опису ключових слів (тегів) на веб-сайтах, або для представлення неформатованого тексту. Ключові слова найчастіше являють собою окремі слова, і важливість кожного ключового слова позначається розміром шрифту або кольором. Таке уявлення зручно для швидкого сприйняття найвідоміших термінів і для розподілу термінів за популярністю щодо один одного.  

Навіщо створювати хмари слів?

У будь-якому завданні повинен бути сенс. Освоїти сервіси по створенню "хмар слів" зовсім не довго, але з чого скласти ці хмари, що з ними робити далі? Як ці хмари до вирішувати завдання навчального плану?

Можливості використання хмари слів у навчанні пов'язані, наприклад, з тим, що:  

в хмару можна записати тему уроку, яку учні повинні визначити;  

попросити скласти пропозиції щодо визначеної теми, «хмара» виступає в якості опорного конспекту;  

можна запропонувати дітям прочитати в «хмарі» головне питання, на яке необхідно знайти відповідь протягом уроку;  

скласти речення або розповідь, використовуючи якомога більше слів з хмари;  

створити словникову «хмару» на основі невеликих нещодавно вивчених навчальних текстів, і попросити учнів пригадати, про що були ці тексти, і в якому саме контексті використовувалися слова;  

показати «хмару», складену зі слів, узятих із незнайомого тексту, і попросити здогадатися про його зміст;

перетворити нудний текст в цікаву головоломку;

написати зашифровану листівку другові;

зробити "хмарку" підказок до математичного (фізичного, географічного, біологічного, інформатичного, ...) диктантів, кросвордів тощо;

повторити основні поняття теми, що вивчаєтся.

Це тільки деякі варіанти використання "хмар тегів/слів". Кожен вчитель може додати до свого арсеналу вправ найрізноманітніші ідеї.

Объяснение:

Слово стандарт – в переводе с английского означает «образец».

Стандарт – нормативный документ, разработанный, как правило, на основе согласия, характеризующегося отсутствием возражений по существующим во у большинства заинтересованных сторон, принятый (утвержденный) признанным органом (организацией)

Стандарт организации  – это документ, устанавливающий комплекс требований и правил, принятых и утвержденных предприятием. Это фактически корпоративный кодекс. Наличие такого корпоративного «кодекса» необходимо для нормальной жизнедеятельности любого предприятия. Это —  основа, «правила игры».

Стандарт организации – стандарт, утвержденный организацией.