Видать расписать как для робота схему поведения
чем подробней тем лучше, например
зайти в кладовку
взять веник
взять совок
выйти из кладовки
пройти в помещение, которое необходимо подмести
движениями слева направо сметать мусор в сторону (многократно, пока все помещение не будет подметено)
собрать мусор веником в одну кучку
кучку мусора веником замести на совок
подойти к мусорному ведру
высыпать мусор из совка в мусорное ведро
пройти в кладовку и поставить на место веник и совок
как то так.. степень подробности выбирайте сами
var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.
Только сейчас зашёл. Если мне мозг не изменяет, то получится число 636
1.В.
2.С.
3.В
4.А
а дальше наугад)))