Question

Sa se scrie un program care sa calculeze suma elementelor pare folosind array.

Answer 1

program a_1;
var x:array[1..20] of integer;
n,i:byte;
s:integer;
begin
repeat
write('Dati numarul de elemente=') readln(n);
until (n>=1) and (n<=20);
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
s:=0;
for i:=1 to n do
begin
if (x[i] mod 2 = 0) then
s:=s+x[i];
end;
write('Suma elementelor pare este=',s);
readln
end.

Bafta la scoala!