//прога на Pascal`e
var
a : array[1..10] of shortint;
i: byte;
count1, count2 : integer;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do begin
a[i]:=random (99)-49;
write (a[i], '; ');
if a[i]>0 then inc(count1, a[i]) else inc(count2, 1);
end;
writeln ();
writeln ('Сумма положительных элементов: ',count1);
write ('Кол-во отрицатедьных элементов : ', count2);
end.
Может, как-то так:
а) тишь-тушь-туша-тура-бура-буря
б) тьма-тема-рема-рама-рана-кана-канн-каон-клон-слон-стон-стан-сван-сват-свет
тьма-тема-сема-сима-сила-кила-килт-киот-крот-грот-глот-глет-слет-свет
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит
<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em> Write((Ord(s[1])-48)*(Ord(s[2]) + Ord(s[3]) - 96));</em>
<em>END.</em>