Упорядочить по возрастанию массив целых чисел используя алгоритм сортировки выбором

const n = 15; var a: array[1..n] of integer; i, j, tmp: integer; begin for i : = 1 to n do begin a[i] : = random(50); write(a[i], ' '); end; writeln;

for i : = 1 to n - 1 do for j : = 1 to n - i do if a[j] > a[j+1] then begin tmp : = a[j]; a[j] : = a[j+1]; a[j+1] : = tmp end;

write('по возрастанию: '); for i : = 1 to n do write(a[i], ' '); end.

топология сети – форма и расположение компьютеров по отношению к друг другу. топология сети позволяет сравнивать и классифицировать различные сети. различают три основных вида топологии:

1) звезда;

2) кольцо;

3) шина.

лучшая сеть топологии звезда.  устанавливать сеть топологии  «звезда»  легко и недорого. число узлов, которые можно подключить к концентратору, определяется возможным количеством портов самого концентратора, однако имеются ограничения по числу узлов (максимум 1024). рабочая группа, созданная по данной схеме может функционировать независимо или может быть связана с другими рабочими группами

Const n = 30; var days: array[1..n] of boolean; b,a,i: integer; begin b: =random(15,100); a: =random(60,100); writeln('высота дерева: ',b/10,' м'); writeln('высота подъёма улитки: ',a,' см'); write('погода: '); for i: = 1 to n do       begin       if random(2) = 1 then days[i]: =true       else days[i]: =false;       if days[i] then write('солнечно ')       else write('пасмурно ')       end; writeln; for i: = 1 to n do       begin       if days[i] then             begin             if a+3< =b then a: =a+3             else a: =b;             end       else             begin             if a-2> =0 then a: =a-2             else a: =0;             end       end; write('высота поъёма улитки: ',a/10,' м') end.