Ответы
Ответ дал:
0
var D: array [1..35] of integer;
i, sum : integer;
BEGIN
for i:=1 to 35 do
read(D[i]);
sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.
i, sum : integer;
BEGIN
for i:=1 to 35 do
read(D[i]);
sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад