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.

uses crt;

var

    suma,i:integer;

    num:array[1..20] of integer;

begin

    clrscr;

    for i:=1 to 20 do begin

        write('Ingrese numero: ');

        readln(num[i]);

    end;

    suma:=0;

    for i:=1 to 20 do begin

        if num[i] mod 2 =0 then

            suma:=suma+num[i];

    end;

    writeln('La suma de los numeros pares es ',suma);

end.