Question

Se da un vector cu n(1<=n<=100) componenta numere intregi,sa se calculeze numarul componentelor pare.
In pascal​

Answer 1

Răspuns:

program NumarComponentePare;

var

n, i, numarPare: integer;

v: array[1..100] of integer;

begin

writeln('Introduceti numarul de componente al vectorului (n <= 100):');

readln(n);

writeln('Introduceti componentele vectorului:');

for i := 1 to n do

readln(v[i]);

numarPare := 0;

for i := 1 to n do

if v[i] mod 2 = 0 then // verificam daca componenta este para

numarPare := numarPare + 1;

writeln('Numarul de componente pare din vector este: ', numarPare);

end.

Explicație:

În acest program, se citește mai întâi numărul de componente ale vectorului, apoi se citesc componentele propriu-zise. Se parcurge fiecare componentă și se verifică dacă aceasta este divizibilă cu 2, ceea ce înseamnă că este pară. Dacă este pară, numărul de componente pare crește cu 1. La final, se afișează numărul de componente pare găsite în vector.

Notă: În această implementare, se presupune că toate componentele vectorului vor fi numere întregi. Dacă sunt permise și numere reale, verificarea dacă un număr este par se poate face prin utilizarea funcției frac, care calculează partea zecimală a unui număr. În acest caz, condiția din interiorul buclei for ar arăta astfel: if frac(v[i] / 2) = 0 then.