помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 1 встречного нулевого элемента
Answers & Comments
StrangeT
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.
Answers & Comments
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.