//PascalABC.NET 3.4.2
begin
var ar := arrrandom(100, -100, 100);
ar.Println.Take(5).Sum.Println;
ar.TakeLast(5).Sum.Println;
end.
Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
набрать полное 9-л. ведро.перелить с него воду в 5-л. ведро.(в 9-л. ведре должно остаться 4 л) Вылить из 5-л. ведра его содержимое иналить туда всю воду из 9-л. ведра.набрать полное 9-л. ведро. перелить из него воды так, чтобы 5-л. ведро стало полным. (в 9-л. ведре должно остаться 8 л)вылить содержимое 5-л. ведра и наполнить его доверху содержимым 9-л. ,в котором после завершения операции одлжно остаться 3 л. А воду из 5-л. ведра можно вылить.
1) фигура
2)
3) Алгоритм
6
7)схема
8) компьютер