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ăspunsuri la întrebare
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;