Var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
<span>end.</span>
245(10)=128+64+32+16+4+1=2^7+2^6+2^5+2^4+2^2+2^0=11110101(2)
Ответ:6
Всего символов = 256 * 20 * 40 = 204800
Для одного символа используется 8 бит = 1 байт.
Объем хрестоматии = 204800 байт = 200 кбайт.
8*16*(ln(128)/ln(2)) бит на пиксель = 896 бит объём / 8 = 112 байт объём.
<span>program el<span>;
</span></span><span>Uses crt<span>;
</span></span><span>var n,R,R1,R2:real<span>;
</span></span><span>begin
</span><span>writeln('Вычисление сопротивления электрической цепи.')<span>;
</span></span><span>writeln('Введите исходные данные:')<span>;
</span></span><span>writeln('Величина первого сопротивления (Ом) -> '); readln(R1)<span>;
</span></span><span>writeln('Величина второго сопротивления (Ом) -> '); readln(R2)<span>;
</span></span><span>writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n)<span>;
</span></span><span>If n=1 <span>then
</span></span><span>R:=R1+R2
</span><span>else R:=R1*R2/(R1+R2)<span>;
</span></span><span>writeln('')<span>;
</span></span><span>writeln('Соротивление цепи: ',R)<span>;
</span></span><span>end<span>.</span></span>