Question

Se considera declaratiile :
type Zi = (L,Ma,Mi,J,V,S,D);
Venit = array [Zi] of real;
var v: Venit;

Componentele variabilei v reprezinta venitul zilnic al unei intreprinderi.Elaborati un program care calculeaza media venitului zilnic.

Answer 1

Program MediaVenit;
  type Zi=(L,MA,MI,J,V,S,D);
  Venit=array[Zi] of real;
 var ven : Venit;
       i: Zi;
      sum, MedArt: real;
 
 begin
  writeln ('Introduceti venitul ptu cele 7 zile:');
       for i:=L to D do
       begin
       read (ven[i]);
       sum:=sum+ven[i];
       end;

   MedArt:=sum/7;
   writeln (MedArt);
 end.