Вчем состоит различие между одноноранговыми локальными сетями и сетями с использыванием сервера

Одноранговые сети: в сети присутствует некоторое количество машин, при этом каждая может связаться с любой из других. каждая из этих машин может посылать запросы другим машинам на предоставление каких-либо ресурсов в пределах этой сети и, таким образом, выступать в роли клиента. будучи сервером, каждая машина должна быть способной обрабатывать запросы от других машин в сети, отсылать то, что было запрошено. каждая машина также должна выполнять некоторые и административные функции (например, хранить список других известных машин-«соседей» и поддерживать его актуальность). любой член данной сети не гарантирует свое присутствие на постоянной основе. он может появляться и исчезать в любой момент времени. но при достижении определённого критического размера сети наступает такой момент, что в сети одновременно существует множество серверов с одинаковыми функциями. пример такой сети: i2p, gnutella2. сеть с использованием отдельного сервера: у такой сети все компьютеры связаны друг с другом через сервер а не напрямую. для получения какой-либо информации с другого компьютера запрос поступает не на тот компьютер откуда должна быть взята информация а сначала поступает на сервер. там эта информация обрабатывается, сервер ищет ответ и высылает его обратно.

Uses crt; var i,a: integer;       begin                for i: =1 to 16 do                        begin                              textcolor(i);                               a: =random(50);                                 write(a);                               sound(i*100);                                 delay(5000);                               nosound;                       end;     readkey; end.

Программа : uses crt; const n=10; type vec=array [1..n] of integer ; var i, max: integer;       a: vec ; begin clrscr; randomize; writeln (' old massiv: '); for i: =1 to n do       begin             a[i]: =-5+random(15);             write (a[i]: 4);       end; writeln; max: =a[1]; for i: =2 to n do         if a[i]> max then max: =a[i]; writeln; writeln(' max = ', max); writeln (' new massiv: '); for i: =1 to n do   begin       if a[i] > 0 then a[i]: =max;       write (a[i]: 4);   end; writeln; readln; end.