Барабан - подача сигнала звуком, костер - передача информации (сигнала опасности) через дым от костра, марка - приклеивалась на конверт, передача бумажным письмом, сумка с письмами - тоже бумажные письма, сумки носили почтальоны, радио - передача радиоволнами звуком одинаковой информации для всех, телефон - передача по проводам индивидуальной информации, телевизор - передача радиоволнами изображения, одинаково для всех, спутник и антена - передача информации через космос, радиоволнами, интернет - передача любой информации по проводам и без проводов.
Сорян, когда из паскаля скопировал, абзацы некоторые удалились,а так всё работает. Делать нечего прост сегодня :)
var s,i,min,max,m,n: integer; var a: array[1..15] of integer; begin for i:=1 to 15 do begin a[i]:=random(100); write(a[i],' ') end;
writeln; m:=a[1];n:=a[1];
for i:=1 to 15 do begin if m<a[i] then begin m:=a[i]; min:=i; end; if n>a[i] then begin n:=a[i]; max:=i; end; end; if max<min then begin s:=max;max:=min;min:=s; end;
for i:=1 to ((abs(max-min)) div 2 +1) do begin s:=a[min]; a[min]:=a[max]; a[max]:=s; min:=min+1; max:=max-1; end; for i:=1 to 15 do write(a[i],' '); end.
