Question

Scrie un program PASCAL care afiseaza procentajul elementelor pare intr-un tabel unidimensional!

Answer 1

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.