Răspuns :
{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 }
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 }
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!