Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
сначала перевози козу, затем возвращаемся, перевозим капусту, когда перевезли капусту забираем козу обратно, оставляем козу и перевозим волка, ну а затем возвращаемся за козой.
это 100 % правильно))
Программа на С++ ,вроде все верно
57+61+191=309км Незнайка
197+13=210км Поэт Цветик
129+16=145км Торопыжка
34+51=85км Доктор Медуцина