Арифметическая прогрессия

[darkneron]

Помогите решит. Дан одномерный массив B(N)? N=10,заданный арифметической прогрессией первый член которой равен 5,а разность -3.Вычислить сумму четных элементов данного массива

[Hacker19_90]

Наработки есть?

[darkneron]

К сожалению нет.

[Hacker19_90]

Запилить код за вас?
Контакты ниже!

[darkneron]

спасибо за помощь.

[Mad_Cat]

var a,s,i:integer;
begin
a:=5;
s:=0;
write(a,' ');
for i:=1 to 9 do begin
a:=a-3;
if not odd(a) then s:=s+a;
write(a,' ');
end;
writeln('s=',s);
readln;
end.

[darkneron]

Сообщение от Mad_Cat

var a,s,i:integer;
begin
a:=5;
s:=0;
write(a,' ');
for i:=1 to 9 do begin
a:=a-3;
if not odd(a) then s:=s+a;
write(a,' ');
end;
writeln('s=',s);
readln;
end.

Спасибо! Большое!