Найти в массиве в(10) сумму элементов под четными номерами

Question

Найти в массиве в(10) сумму элементов под четными номерами

Comments

for i:=1 to 10 do if i mod 2 = 0 then s:=s+в[i]

---

мне нужен полностью алгоритм.я тупая

---

в паскале

Answer 1

А вот так подойдет?????

uses Crt;
const n=10;
Type Vec=array [1..n] of integer;
var B: Vec;
i, Sum : integer;
begin
ClrScr;
for i:=1 to n do
begin
   B[i]:=10+random(21);
   if (i mod 2 =0) then Sum:=Sum+B[i];
   Write(B[i]:4);
end;
WriteLn;
WriteLn('Sum =', Sum);
ReadLn;
end.