Răspuns :
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;
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!