Если ".1." несёт 4 бита информации, а ".2." в 2 раза меньше, то получается, что:
Кол-во информации в сообщении ".2." = 4 бита (оно же 0,5 байт) / 2 = 2 бита (0,25 байт).
5 6)
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=i to n
if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j
next i
for i=1 to n
print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then p=p*a(i)
if a(i)<0 then s=s+a(i)*a(i)
if a(i)=0 then a(i)=12
next i
for i=1 to n
print a(i);
next i
print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0
for i=1 to n
input a(i)
next i
for i=1 to n
if i mod 2 =0 then s=s+a(i)
next i
print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then k=k+1
if i mod 2 = 1 then s=s+a(i)
if a mod b = 0 then p=p*a[i]
next i
for i=1 to n
print a(i);
next i
print
print s
print p
print b