Сформировать из 10 случайных чисел из отрезка [0; 25] и найти сумму положительных элементов массива.

Program kol_vo_elementov; var a: array[1..10] of integer; i, s: integer; begin for i: =1 to 10 do begin a[i]: =random(25); write(a[i],' '); if (a[i]> 0) then s: =s+a[i]; end; writeln('s=',s); end.

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1