в массиве d1, d2,...d35 найти сумму чисел, расположенных на нечетных местах
Answers & Comments
MikhOm
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.
Answers & Comments
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.