Media aritmetică
5)Realizaţi un program care calculează şi afişează media aritmetică a două numere reale x şi y
.Program Media_aritmetica;
Var
media,x,y:Real;
BeginWrite(’Dati numerele:’)
;ReadLn(x,y);
Media:=(x+y)/2;
WriteLn(’Media=’Media:8:2);
ReadLn;
End. Sper ca te-am ajutat!!!SUCCES Acelea lalte nu leam stiut
