{Sa se determine media artimetica a elementelor pare dintr-un vectorde numere intregi.}
denumirea programului;declararea variabilelor var1 : array[1..100] of integer; var2, var6, var3, var4: integer; var5 : real;
evectuare{CITIRE VECTOR SI NUMARARE ELEMENTE PE CATEGORII}var4 := 0; var3 := 0;scrie 'Numar de elemente:' citeste(n);pentru i := 1 pina la var6 efectuam scrie'var1[',var2,']='; citeste (var1[var2]); [functie] daca a este nr. par atunci var4:= var4 + var1[var2]; var3 := var3 + 1; sf.atunci sf. efectuam{AFISARE REZULTATE}media := suma / m;scrie('Media elementelor pare: ', var5);sf. efectuare
{ aproximativ }