1 способ
type
massiv = array [2..21] of integer;
var
mass : massiv;
i, summa : integer;
begin
summa := 0;
for i:=2 to 21 do
begin
mass[i]:=i;
if (mass[i] mod 2 = 0) then
summa := summa + mass[i]
end;
writeln('Сумма четных эл-тов равна : ', summa);
readln;
end.
2 Способ
program z;
var
a : array[2..21] of integer;
i,summ : integer;
b : array[2..21] of integer;
begin
for i:= 2 to 21 do
begin
a[i]:=i;
end;
for i:=2 to 21 do
begin
if a[i] mod 2 = 0 then
begin
b[i]:=a[i];
end;
end;
summ:=0;
for i:=2 to 21 do
begin
summ:=summ+b[i];
end;
Writeln(summ);
readln;
end.
1. Выпишем номера арбузов, которые легче в каждом из указанных взвешиваний: 2, 3, 4, 5 и будем рассматривать только арбузы с полученными номерами.
2. Арбуз 5 легче арбуза 4, поэтому 4 вычеркиваем: 2, 3, 5
3. Арбуз 4 легче арбуза 3, поэтому 3 вычеркиваем: 2, 5
4. Арбуз 2 легче арбуза 5, поэтому 5 вычеркиваем: 2
Арбуз 2 самый легкий.
Алг
нач
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
закрасить
нц
пока снизу стена
влево
кц
вниз
нц пока справа стена
закрасить
вниз
кц
закрасить
вправо
нц пока сверху стена
закрасить
вправо
кц
кон
Надо добавить букву М
и получится ответ на вопрос
будет слово ме