А - кувшин 3 литра Б - кувшин 5 литров 1)наливаешь воду в кувшин А (в А - 3 литра) 2) переливаешь воду из А в Б (в А - 0 литров, в Б - 3 литра) 3)наливаешь воду в А ( в А - 3 литра, в Б - 3 литра) 4) переливаешь воду из А в Б (в А - 1 литр, в Б - 5 литров) 5)выливаешь воду из Б (в А - 1 литр, в Б - 0 литров) 6) переливаешь воду из А в Б ( в А - 0 литров, в Б - 1 литр) 7) наливаешь воду в А( в А - 3 литра, в Б - 1 литр) 8) переливаешь воду из А в Б ( в А - 0 литров, в Б - 4 литра) 9) наливаешь воду А - готово (в А - 3 литра, в Б - 4 литра) п.с. первое, что пришло в голову, наверное, можно как-то еще
n, sum, max: integer;
begin
sum:=0;
write('Введите натуральное число n: ');
readln(n);
a := new integer[n];
write('Введите действительные числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Сумма равна: ');
for var i:=0 to a.Length-1 do
sum:=sum+a[i];
writeln(sum);
write('Максимальный элемент равен: ');
max := a[0];
for var i:=0 to a.Length-1 do
if a[i]>max then
begin
max := a[i];
end;
writeln(max);
write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
sum:=sum+max;
write(sum);
end.
Б - кувшин 5 литров
1)наливаешь воду в кувшин А (в А - 3 литра)
2) переливаешь воду из А в Б (в А - 0 литров, в Б - 3 литра)
3)наливаешь воду в А ( в А - 3 литра, в Б - 3 литра)
4) переливаешь воду из А в Б (в А - 1 литр, в Б - 5 литров)
5)выливаешь воду из Б (в А - 1 литр, в Б - 0 литров)
6) переливаешь воду из А в Б ( в А - 0 литров, в Б - 1 литр)
7) наливаешь воду в А( в А - 3 литра, в Б - 1 литр)
8) переливаешь воду из А в Б ( в А - 0 литров, в Б - 4 литра)
9) наливаешь воду А - готово (в А - 3 литра, в Б - 4 литра)
п.с. первое, что пришло в голову, наверное, можно как-то еще