Я не знаю не видно в приложении
Если это задание для Кумира, то вот нужный алгоритм:
использовать Робот
алг
нач
цел п
нц пока снизу свободно
вниз
кц
нц для п от 0 до 1
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно и п=0
влево
кц
кц
вниз
нц для п от 0 до 2
нц пока сверху свободно и п<2
вправо
кц
нц пока сверху стена
закрасить
вправо
кц
кц
кон
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.
26(букв)+10(цифр)=36, т.е чуть больше 5 бит (<span>
5,169925)</span>≈6 бит, 2^6=64 символа может быть в алфавите, можно добавить 64-36=28 символов<span><span>
</span></span>