Составить программу, которая вычислит еженедельный доход предприятия, если дано описание

type Deni=(Pn, Vt, Sr, Ct, Pt, Sb, Vs); {Dni nedeli} Venit=array [Deni] of real; var v:Venit; Компоненты переменной v представляют собой ежедневный доход предприятия. Помогите пожалуйста!!

1

Ответы и объяснения

Лучший Ответ!
2012-11-03T15:46:06+00:00

Program Venit;

type Deni=(Pn,Vt,Sr,Ct,Pt,Sb,Vs);

       venit=array[Deni] of real;

var v:venit; i,n:integer; s:real;

BEGIN

  For i:=1 to 7 do

    writeln('Введите доход для ',i,' дня'); readln(v[i]);

  For i:=1 to 7 do

   s:=s+v[i];

 

writeln(еженедельный доход предприятия: ',s:0:2'); readln;

END.