Question

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

Answer 1

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.