Question

alcatuieste un program in pascal in care afla media aritmetica a x numere

Answer 1

Răspuns:

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.