Var
a, b : array [1..1000] of integer;
n, m, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
m := 0;
for i := 1 to n do
if a[i] = 0 then
begin
m := m + 1;
b[m] := i;
end;
for i := 1 to m do write (b[i], ' ');
end. <span>
</span>
<span>1)из (14) наливаем в (5)</span>
<span>2)из (5) наливаем в (9)</span>
<span>3)повторяем пункт 1 </span>
<span>4)из (5) наливаем в (9) остается 1л</span>
<span>5)переливаем из (9) в (14)</span>
<span>6)выливаем 1л из (5) в (9)</span>
<span>7)из (14) наливаем в (5)</span>
<span>8)из (5) наливаем в (9) </span>
<span>в битоне(9) находится 6л молока</span>
<span>9)из (14) наливаем в (5)</span>
<span>10)из (5) наливаем в (9) </span>
<span>в битоне (5) остается 2л молока</span>
<span>11)переливаем из (9)в (14)</span>
<span>12)наливаем в (9) 2л молока из (5) </span>
<span>13)из (14) наливаем в (5)</span>
<span>14)из (5) переливаем в (9)</span>
Задание 5 получается D$2+$E5 =410