А) вычисления среднего арифметического переменных x1, x2 и x3; б) уменьшения на тройку значения переменной k; в) увеличения в 3 раза значения переменной i; г) вычисления площади S прямоугольного треугольника с гипотенузой c и катетом
Program Pr1; uses crt; var mas:array[1..15] of integer; i,max,min,b,v:integer; Begin clrscr; for i:=1 to 15 do mas[i]:=random(10); for i:=1 to 15 do write(mas[i]); max:=0; min:=100000; b:=0; for i:=1 to 15 do begin if mas[i]>max then max:=i; if mas[i]<min then min:=i; end; if max>min then for i:=min to max div 2 do begin v:=mas[max-b]; mas[max-b]:=mas[i]; mas[i]:=v; b:=b+1; end else for i:=max to min div 2 do begin v:=mas[min-b]; mas[min-b]:=mas[i]; mas[i]:=v; b:=b+1; end; writeln(); for i:=1 to 15 do write(mas[i]); end.
1. телефонная линия, поскольку работает на низкой частоте, радиоволны (wi-fi, спутниковая связь) плохо проникают в землю. коаксиальный кабель, витая пара, оптоволоконная линия - экономически нецелесообразны для передачи небольших объемов данных (речь, звук) 2. Для локальной сети подойдет витая пара, как наиболее экономически целесообразная в локальной сети, коаксиальный кабель считает устаревшим, с узкой полосой пропускания, wi-fi может быть использован, если площадь здания небольшая, а коэффициент поглощения радиоволн стенами минимален. 3. В обсерватории подойдет спутниковый канал связи, поскольку тарелку на спутник возможно настроить, но для относительно медленных соединения может быть использован радиоканал. 4. поскольку завод секретный, использовать радиоканалы не безопасно. Подойдет оптоволоконная линия и витая пара, имеющие наиболее высокую пропускную 5 Радиовещательные компании ведут трансляцию по коаксиальному кабелю, поскольку в большинстве случает не требуется высокая скорость для передачи звука, но в то же время требуется помехозащищенность, но в зависимости от расположения передающего центра и абонентов, могут быть использованы любые трансляции за исключением телефонной линии.
Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.