Первый кратный элемент заменяется на 0
const
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do
a[i] := i;
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);<span>
end. </span>
Стакан с водой - a
Стакан с молоком - b
Дополнительный стакан - c
c=a;
a=b;
b=c;
В 2 раза
....................................
Составил в pascal
program mas;
var i,j:integer; a:array [1..10] of integer;
begin
randomize;
for i=1 to 10 do
begin
a[i]:=random(10);
end;
for i=2 to 10 do
begin
j:=j+a[i];
i:=i+1;
end;
writeln(j);
readln;
end.
Можно её сохранить на флешку или жёсткий диск.