👤
IDBTSEUSITAE11
a fost răspuns

De calculat media aritmetică a elementelor pozitive a tabelului. Am nevoie de un program in Free Pascal​

Răspuns :

var

   n,i:integer;

   s,k: real;

   v: array[1..101] of real;

begin

   s:=0;

   k:=0;

   read(n);

   for i:=1 to n do begin

       read(v[i]);

       if v[i]>0 then begin

           s:=s+v[i];

           k:=k+1;

       end;

   end;

   write(s/k);

end.

Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de sprijin suplimentar, vă încurajăm să ne contactați. Revenirea dumneavoastră ne bucură, iar dacă v-a plăcut, nu uitați să adăugați site-ul nostru la favorite!


ID Teachingsy: Alte intrebari