1. Монитор
3.ПЗУ
4.ОЗУ
5.для хранения не изменяемой информации
В условии задания не сказано, запрещено ли роботу ходить по закрашенным клеткам или нет,поэтому будем считать что разрешено.
a) начало
пока справа свободно (если закрашено (вниз,закрасить,вверх; ) вправо)
если закрашено (вниз,закрасить ;)
конец.
В данном алгоритме робот идет направо,пока не достигнет конца. При каждом смещении вправо он проверяет,на какой клетке стоит : если клетка,на которой стоит робот закрашена, то он закрашивает клетку под ней. После цикла делается ещё одна проверка,так как робот, находясь на последней клетке справа не будет заходить внутрь цикла, так как условие "пока справа свободно" не выполнится, поэтому добавим ещё одну проверку после цикла для последней клетки.
б) Здесь алгоритм аналогичный, только добавляется ещё заход в верхнюю клетку для закраски.
начало
пока справа свободно (если клетка закрашена (вверх, закрасить, вниз, вниз, закрасить, вверх; ) вправо)
если клетка закрашена (вверх,закрасить,вниз,вниз,закрасить)
конец.
Меняй Винду и меняй свой медиа девайс
Var ar:array[1..5] of integer;
i,k1,k2:integer;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
if ar[i]<0 then k1:=k1+ar[i] else k2:=k2+ar[i];
end;
writeln('Сумма положительных:',k2);
write('Сумма отрицательных:',k1);
<span>end.</span>
Решение - в прилагаемом файле.