Const
n=10;
var
a,b,c:array[1..n] of real;
i:integer;
begin
Writeln('Введите элементы массива');
for i:=1 to n do Read(a[i]);
Writeln(' A B C');
for i:=1 to n do
begin
b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2;
Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3)
end
end.
<em><u>Тестовое решение:</u></em>
Введите элементы массива
1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245
A B C
1.260 0.245 0.753
-0.300 1.750 0.725
6.180 -2.955 1.613
7.000 -1.700 2.650
-7.040 -9.900 -8.470
-9.900 -7.040 -8.470
-1.700 7.000 2.650
-2.955 6.180 1.613
1.750 -0.300 0.725
0.245 1.260 0.753
<em><u>Блок-схема во вложении</u></em><em><u /></em>
Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
A1 = 2*D*T*i = 50 Мбайт ⇒ D*T*i = 50/2 = 25 МбайтA2 = (D/5)*T*(3*i) = 3/5 * D*T*i = 3/5 * 25 = 15 Мбайт
Ответ: 15 Мбайт
Источник_____Информационный канал_____Приёмник
В Лего можно фантазировать бесконечно,очень много деталей и они разных цветов,похоже на реальную жизнь.