Sper ca te-am ajutat.
program da;
type vector:array[1..100] of integer;
var v:vector;n:integer;
cntNrPar:integer;procNrPar:real;
begin
write('n=');readln(n);
for i:=1 to n do
readln(v[i]);
for i:=1 to n do
if v[i] mod 2 = 0 then
cntNrPar = cntNrPar + 1;
procNrPar = (cntNrPar * 100) / n;
write('Procentul numerelor pare este: ',procNrPar,'%.');
readln;
end.
