👤

Se considera tabloul A[1..n] de numere intregi,n<=100.
Sa se scrie un program care calculeaza media aritmetica a numerelor de pe locurile pare si media aritmetica a numerelor de pe locurile impare.
PASCAL


Răspuns :

var

 A:array[1..100] of integer;
 i,n:integer;
 s1,s2,n1,n2:real;
 
begin

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(i mod 2 = 0) then
    begin
     s1+=a[i];
     n1+=1;
    end
   else
    begin
     s2+=a[i];
     n2+=1;
    end;
  end;

 writeln(s1/n1);
 writeln(s2/n2);

end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari