Pascal/Turbo Pascal - Vectores en Pascal

{Espero esto sirva }

program pares;

uses

crt;

var

veztor : array[0..19] of integer;

cont : integer;

suma : longint;

procedure entrada(var v : array of integer);

begin

for cont := 0 to 19 do

begin

write(' Entre Numero Entero En Posicion : ',cont + 1,' Num : ');

readln(v[cont]);

end;

end;

procedure sumaveztor(ss : array of integer);

begin

suma := 0;

for cont := 0 to 19 do

begin

if ss[cont] mod 2 = 0 then

suma := suma + ss[cont];

end;

end;

begin

entrada(veztor);

sumaveztor(veztor);

clrscr;

writeln(' La Suma De Los Pares Es = ',suma);

writeln;

writeln(' Pulse Una Tecla');

readkey;

end.