Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих **...

Question

Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью генератора случайных чисел. если можно с блок-схемой

Answer 1

Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
 randomize;
 for i:=1 to n do
   begin
    a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
    write(a[i],' ');
   end;
 writeln;
 s:=0;
 for i:=1 to n do
   if (i mod 2)=0 then s:=s+a[i];
 writeln(s);
end.