Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write('Введите значение: ');
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln('Сумма положительных членов массива: ', s);
<span>end.</span>
Всего символов в высказывании: 57.
Один символ = 1 байт из условия. 57 байт = 456 бит (57*8 т.к. в одном байте 8 бит)
Ответ: 3
Задом на перед написать и переставить первую букву в конец