program p10;
type vector=array[1..100] of integer;
var A:vector;i,n:integer;mpare,mimpare:real;
function Mediapare(A:vector;n:integer):Real;
var i,s,np:integer;mp:real;
begin
s:=0;np:=0;
For i:=1 to n do begin
If i mod 2 =0 then begin np:=np+1;
s:=s+A[i];
mp:=s/np;end;end;
Mediapare:=mp;
end;
function Mediaimpare(A:vector;n:integer):Real;
var i,s,ni:integer;mimp:real;
begin
s:=0;ni:=0;
For i:=1 to n do begin
If i mod 2 =1 then begin ni:=ni+1;
s:=s+A[i];
mimp:=s/ni;end;end;
Mediaimpare:=mimp;
end;
begin
Write('n=');readln(n);
writeln('introdu elementele
vectorului');
for i:=1 to n do readln(A[i]);
Writeln('Vectorul introdus este: ');
for i:=1 to n do Write(A[i]:3);
writeln;
mpare:=mediapare(a,n);
mimpare:=mediaimpare(a,n);
writeln('Media aritmetica anumerelor
de pe locurile pare este:',mpare);
writeln('Media aritmetica a numerlor
de pe locuirile impare este:',mimpare);
readln;
end.
