Răspuns :
Răspuns:
program energie;
type sat=(Mihaileni, OchiulAlb,Nicoreni,Baraboi);
zi =(luni,marti ,miercuri,joi,vineri,sambata,duminica);
consum=array[sat,zi] of real;
var c:consum;
sa:sat;
z:zi;
i:integer;
en: array[1..4] of real;
s:real;
begin
Writeln('introdu consumul zilnic a energiei electrice la patru sate');
Writeln('intr-o linie 7 numere reale separate prin spatiu pentru un sat');
i:=0;
for sa:=Mihaileni to Baraboi do
begin
writeln('introdu datele pentru satul ',Ord(sa)+1);
i:=i+1; s:=0;
for z:=luni to duminica do
begin
Read(c[sa,z]);
s:=S+c[sa,z];
end;
en[i]:=s;
end;
Writeln('Consumul saptamanal al satelor:');
for i:=1 to 4 do
Writeln(en[i]);
end.
Explicație:
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.