Question

Va rog sa ma ajutati! type Zi =(L,Ma,Mi,J,V,S,D);
Venit = array [Zi] of real;
Componentele variabilei v reprezinta venitul zilnic al unei intreprinderi.Elaborati un program care:Calculeaza media venitului zilnic;

Answer 1

Program Money;
  type zi=(L, MA, MI, J, VI, S, D);
         venit=array [zi] of real;
var v: venit; suma, media: real; n: zi;

writeln ('Introduceti venitul zilnic:');
 for n:=L to D do
      begin
readln (v[n]);
suma:=suma+v[n];
       end;

media:=suma/7;
 write ('Media venitului zilnic este: ', media);
   readln;
     end.