Каждый компьютер подключенный к интернету, имеет свой уникальный IP-адрес.
Доменная система имен присваивает IP-адресу уникальное доменное имя и не у каждого IP-адреса может быть такое доменное имя. Сама по себе доменная система имеет иерархическую структуру: домен 1ого (верхнего) уровня , домен 2ого и т.д.
Транспортный протокол организует разбивание файла в процессе его передачи на пакеты, а при получение "склеивает" его обратно.
Протокол маршрутизации обеспечивает саму передачу файла от компа к компу. Файл(пакеты) в процессе передачи проходят промежуточные сервера в интернете, которые перенаправляют на следующие, постепенно приближаясь от компа отправителя к компу получателя.
Вот программа по примитивной логике. Заводим доп.массив, переписываем в него четные эл-ты, сортируем его, отсортированные эл-ты вставляем назад в исходный массив. var i, j, p: integer; a: array[1..20] of integer; b: array[1..10] of integer; begin writeln('Исходный массив: '); for i := 1 to 20 do begin a[i] := random(20) + 1; write(a[i]:3) end; for i := 1 to 20 do if i mod 2 = 0 then begin j := j + 1; b[j] := a[i] end; writeln; for i := 1 to 10 do for j := 1 to 10 do begin if b[i] > b[j] then begin p := b[i]; b[i] := b[j]; b[j] := p end end; for i := 1 to 10 do a[i * 2] := b[i]; writeln('Преобразованный массив: '); for i := 1 to 20 do write(a[i]:3) end.
Доменная система имен присваивает IP-адресу уникальное доменное имя и не у каждого IP-адреса может быть такое доменное имя. Сама по себе доменная система имеет иерархическую структуру: домен 1ого (верхнего) уровня , домен 2ого и т.д.
Транспортный протокол организует разбивание файла в процессе его передачи на пакеты, а при получение "склеивает" его обратно.
Протокол маршрутизации обеспечивает саму передачу файла от компа к компу. Файл(пакеты) в процессе передачи проходят промежуточные сервера в интернете, которые перенаправляют на следующие, постепенно приближаясь от компа отправителя к компу получателя.
var
i, j, p: integer;
a: array[1..20] of integer;
b: array[1..10] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 20 do
begin
a[i] := random(20) + 1;
write(a[i]:3)
end;
for i := 1 to 20 do
if i mod 2 = 0 then
begin
j := j + 1;
b[j] := a[i]
end;
writeln;
for i := 1 to 10 do
for j := 1 to 10 do
begin
if b[i] > b[j] then
begin
p := b[i];
b[i] := b[j];
b[j] := p
end
end;
for i := 1 to 10 do a[i * 2] := b[i];
writeln('Преобразованный массив: ');
for i := 1 to 20 do write(a[i]:3)
end.