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