var
a: array[1..5] of integer;
p,ot,i:integer;
begin
p:=0;
ot:=0;
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do begin
if a[i]>0 then
p:=p+1
else
ot:=ot+1;
end;
writeln('polozitelnich=', p, ' otrizatelnich=', ot);
end.
Пароль, число, шифр, номер, количество чего-либо.
использовать Робот
алг
нач
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока слева свободно
выбор
при снизу стена :влево
иначе закрасить
вниз
закрасить
вверх
влево
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
кон
(на закрепе начальная обстановка)