Media aritmetica a numerelor pare:
var n,i,a,k:integer;
s:real;
begin
write('Enter numarul de elemente=');
readln(n);
writeln('Enter ',n,' numere');
k:=0;
s:=0;
for i:=1 to n do
begin
readln(a);
if a mod 2=0 then
begin
s:=s+a;
k:=k+1
end;
end;
if k=0 then write('Numere pare nu sunt')
else
begin
s:=s/k;
write('Media aritmetica a numerelor=',s:0:2);
end;
end.
Media aritmetica a numerelor impare:
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('Enter numere. 0 - sfarsitul');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('Media aritmetica a numerelor impare: ',sum/k:5:3);
end.
