Question

Se considera declatiile
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:
a) calculeaza venitul saptaminal al intreprinderii;
b) calculeaza media venitului zilnic;
 c)indica ziua in care s-a obitinut cel mai mare venit;
 d) indica ziua cu venitul cel mai mic;

Answer 1

begin
writeln('Dati venitul zilnic');
for i:=L to D do
begin 
write('Pentru ',i,' =')'
readln(V[i]);
end;
S:=S+V[i];
writeln('suma venitului=',s);
end.

c) type zi=(L,Ma,Mi,J,V,S,D);
venit=array[zi] of real;
var v: venit; i:zi
      max: real; k: integer;
begin
writeln('Dati venitul zilnic');
For i:=L to D do
begin 
write('Pentru ',i,' =')'
readln(V[i]); k:=1
For i:= Ma to D do
if V[i]> max then
begin
max:= V[i]; k:=i
end;
writeln('ziua cu venit maxim este',k);

te-am ajutat cu ce am putut, bafta