Помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 1 встречного нулевого элемента

1

Ответы и объяснения

2013-09-10T20:50:02+04:00
Var
a,i,n:integer;
b:array [1..50] of integer;
begin
  readln(n);
  for i:= 1 to n do
  readln(b[i]);
  i:=1;
  a:=0;
  while (b[i]<>0) and (i<=n) do
  begin
    if b[i] mod 2 =0 then a:=a+b[i];
    inc(i);
  end;
  writeln('Сумма четных элементов = ',a);
end.

о боже , ты мой спаситель)))спасибо