Почему тактильную информацию нельзя передать через интернет

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

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end.