Риант решения). 5. Как организовать переправу, если и

Первое задание, программа задает массив, сортирует его, затем сравнивает элемент с последующем

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]=a[i+1] then
begin
writeln(a[i]);
writeln(a[i+1]);
end;
end.

Второе задание. Программа также сортирует и сравнивает элементы

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]<>a[i+1] then
begin
writeln(a[i]);
end;
end.

Cистемная плата (материнская плата) - на ней размещены:
процессор (центральный процессор)+система охлаждения,
внутренняя память,
системная шина,
слоты.
Платы периферии (могут быть встроены в системную плату) - на них размещены контроллеры устройств ввода-вывода+разъемы:
Контроллеры дисководов,видеокарта (видеоконтроллер, графическая плата),звуковая карта (звуковой контроллер, звуковая плата),сетевая карта (сетевой адаптер, сетевая плата),контроллеры других устройств
Устройства ввода и вывода:
дисководы:
дисковод на жеском диске,
привод гибких дисков (дисковод для дискет),
привод оптических дисков (привод CD-ROM, CD-RW, DVD-ROM, DVD-RW),
стримердругие устройства;блок питания