Ответ на 1-е задание: 12122
Ответ на 2-е задание: 22221
Ответ на 3-е задание: 12
Без понятия что за форма дано найти
256 = 2^8 т.е 8 бит на символ
8*30*12*х = 177550*8 бит
х =177550*8 /8/30/12 = 493.194444444444 символов в строке в среднем
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
3.5Кб*1024байт=3584байт
если двухбайтная кодировка то
3584:2=1792 символов