Здравствуйте, надо написать код на VBA. Задача: Дан одномерный массив А размерности N. Найти сумму положительных элементов, произведение отрицательных элементов.

Тут есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then

Информационный объём одного символа в алфавите вычисляется по формуле N=2^i,где N количество символов в алфавите, а i - информационный объём одного символа, следовательно, для русского алфавита: в русском алфавите 33 буквы(если там 32, то 2^5=32) а ближайшая степень двойки=5 тогда нам нужно взять на одну степень больше чтобы закодировать этот символ, тогда 2^6=64 откуда следует что для русского алфавита инф. объём одного символа=6 бит
по аналогии с латинским, в нём 26 букв, 2^4=16 следовательно 2^5=32 и тогда для латинского алфавита инф. объём=5 бит(кол - во букв брал из интернета так что посмотри там принцип я тебе рассказал)