Question

Puteti sama ajutati cu problema la informatica cl a 10 "turbo pascal"
Se considera declaratile
type Zi =(L, MA, MI , J, V , S, D);
Venit =array [Zi] of real;
var v: Venit ;

componetele variabilei V reprezinta venitul zilnic al unei intreprinderi. Elaborati un program care:
Calculeaza venitul saptaminal al intrepriderii.

Answer 1

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

   writeln (sum); 
 end.