Question

type Zi = (L, Ma, Mi, J, Vi, S, D) ;
Venit = array [Zi] of real;
var v: Vector;

Componentele variabilei v reprezintă venitul zilnic al
unei întreprinderi. Elaborați un program care va
calcula venitul saptămînal al întreprinderii.

Algoritmul programului
Vom defini, în partea declarativă, un tablou cu 7
elemente de tip real.
Vom introduce datele pentru fiecare zi.
Vom calcula suma tuturor elementelor ale acestui tablou.
Vom afișa suma saptămînal calculată.

Answer 1

var

 N: array [1..100] of integer;

 c, s: integer;

begin

 s := 0;

 for c := 1 to 7 do

   read(N[c]);

 for c := 1 to 7 do  

   s :=  s+N[c];

 writeln(s);

 readln;

end.