👤
a fost răspuns

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)

Răspuns :

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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari