Question

Se dă tabloul N[1..100] de numere întregi. Scrie un program Pascal utilizând o funcție care va determina numărul de elemente pare din acest tablou.

Answer 1

Răspuns:

program paritate;

type tablou=array[1..100] 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;