pascal sa se determine un tablou P[1...10] de numere intregi. Scrie un progran utilizînd o functie are vă determină numărul de elementelor pare din acest tablou.

Răspuns:

program paritate;

type tablou=array[1..10] of integer;

var t:tablou; n, i:integer;

function pare(n:integer; x:tablou):integer;

var p, i:integer;

begin

 p:=0;

 for i:=1 to n do

    if x[i] mod 2 =0 then inc(p);

 pare:=p;

end;

begin

 write('n='); read(n);

 write('introdu ',n,' numere intregi, separate prin spatiu: ');

 for i:=1 to n do

   read(t[i]);

 writeln('pare sunt ', pare(n,t));

end.

Explicație:

in functie am trimis ca parametri valoare pe n, nr. de elemente  si t, tabloul

se putea de nu trimis nimic ca parametri si de luat n si t ca variabile globale, dar am preferat astfel...

functia care ar lucra cu variabile globale poate fi astfel:

function pare :integer;

var p, i:integer;

begin

 p:=0;

 for i:=1 to n do

    if t[i] mod 2 =0 then inc(p);

 pare:=p;

end;