👤
ANONYMOUSGIRLZE
a fost răspuns

se citesc de la tastatura n numere intregi . sa se calculeze media aritmetica a numerelor pare.

Răspuns :

VLADIMIRBCZE
program P1;
var     a : array[1..100] of integer;
        i, n, m, suma: integer;
        media : real;

begin
suma := 0; m := 0;
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
         if(a[i] mod 2 = 0)
         then
                 begin
                          suma := suma + a[i];
                          m := m + 1;
                 end;
    end;
media := suma / m;
write('Media elementelor pare: ', media);
readln;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari