Найдите сумму всех положительных элементов одномерного массива

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

Советы, решившему купить компьютерзнания и умения, позволяющие уверенно чувствовать себя за клавиатурой пк, нельзя почерпнуть из программы вечерних новостей, занять в долг у "шибко грамотного" соседа или получить "обучением во сне", уснув с толстой книжкой под подушкой. умение работать с компьютером в работе с ним, в длительной борьбе с "железом", иногда - удачной, иногда - не . трудности могли бы остановить не одного начинающего пользователя, но знание компьютера, работа с основными офисными или, например, бухгалтерскими программами, стали в наше время почти столь же необходимым требованием при приеме на работу, как когда-то умение читать-писать. магически влекущий интернет тоже сыграл свою роль - чтобы получить "ключи" от огромного виртуального мира этой всемирной сети, многие готовы обучаться столько, сколько потребуется. мало этого, фактически компьютер нужен всем тем, кто не намерен отстать от стремительно развивающейся действительности. но каждому требуется свой пк, для решения определенного круга , более или менее доступный по цене и, конечно же, как можно более надежный и как можно менее вредный для оставшегося после покупки здоровья. понятно, что "повезет-не повезет" в этом случае не подходит - выбор должен вестись с четким пониманием что и как выбираем. 

1. так как количество байт и бит должно быть одинаковым, у нас нет возможности кодировать числа и буквы по-разному. 2. всего тогда получается алфавит из 26 + 10 = 36 символов. 3. нам нужно узнать какой объем информации несет 36 символов. округляем вверх до 64 (степень двойки). 64 = 2 в 6-ой. значит, один символ кодируется 6-ю битами. 4. далее, минимальная ячейка у нас - 1 байт. половинчатые байты теоретически наверное могут быть, если у нас есть специальный тип данных "номер". но скорее всего придется смирится с потерей места и закодировать 1 символ 1 байтом. 5. 1 номер = 1 символ * количество символов = 14 байт. 6. 14 байт * 50 номеров = 700 байт.