Question

Elaborati un program Pascal care : Calculeaza media aritmetica a modulelor a doua numere date;
cine stie un raspuns va rog ... !!! :*

Answer 1

Program media_artimetica;
 
      Var a,b,Suma: integer;
            media: real;
   Begin
   ClrScr;
   Write('Introduceti doua numere intregi: ');
   Readln(a,b);
   Suma:=a+b;
   Writeln('Suma numerelor ',a,', ',b,' este: ',Suma);
   media:=Suma/2;
   Write('Media aritmetica este: ');
   Writeln(media:2:1);
   Readkey;
   End.