Question

Se consideră declaraţiile

type Zi = (L, Ma, Mi, J, V, S, D);

Venit = array [Zi] of real;

Var v : Venit;
Componentele variabilei v reprezintă venitul zilnic al unei întreprinderi. Elaboraţi un program care:indică ziua în care s-a obţinut cel mai mare venit;(in.PASCAL)

Answer 1

program Tema;
type
   Zi=(L,Ma,MI,J,V,S,D);
   Venit:array[Zi] of real
    Zile=set of Zi; 
var
   max:real;
   zi_curenta:Zi;
   zi_max:Zi;
    v:Venit;
begin
   max:=0;
   
   for zi_curenta in Zile do
  begin 
  if(v[zi_curenta]>max) then      
  begin
      max:=v[zi_curenta];
      zi_max:=zi:curenta;
   end;
   end;
  
  writeln('Ziua in care s-a incasat venitul maxim: ',max,' a fost ziua: ',zi_max);
end.