program somma_pari(input,output);

uses crt;

const n=10;

var v:array[1..n] of integer;

i,somma:integer;

begin

clrscr;

writeln('somma elementi pari di un vettore di interi');

writeln;

writeln('introduci i valori degli elementi');

writeln('devono essere interi');

for i:=1 to n do

begin

write('elemento n. ',i,' = ');

read(v[i]);

end;

(*somma elementi pari*)

somma:=0;

for i:=1 to n do

if v[i]/2=int(v[i]/2)

then somma:=somma+v[i];

writeln('la somma degli elementi pari vale ',somma);

writeln;

readln;

repeat until keypressed;

end.