Răspuns:
program Ex_nustiu_care;
type Ora = 0..23;
Grade = -40..40;
Temperatura = array [Ora] of Grade;
var t : Temperatura;
suma,h,tmax,tmin: integer;
tmed: real;
begin
writeln('Dati temperaturile din ora in ora...');
suma:=0;
for h:=0 to 23 do
begin
write('t[',h,']='); read(t[h]);
suma:=suma+t[h];
end;
tmed:=suma/24;
writeln('a) Temperatura medie= ',tmed:0:0);
{de regula temperatura medie se prezinta ca numar fara zecimale}
tmax:=t[0];
tmin:=t[0];
for h:=1 to 23 do
begin
if t[h]>tmax then tmax:=t[h];
if t[h]<tmax then tmin:=t[h];
end;
writeln('b) Temperatura maxima = ',tmax);
writeln(' Temperatura minima = ',tmin);
write('c) Ora (orele) la care s-a inregistrat temperatura maxima: ');
for h:=0 to 23 do
if t[h]=tmax then write(h:4);
writeln;
write('d) Ora (orele) la care s-a inregistrat temperatura minima: ');
for h:=0 to 23 do
if t[h]=tmin then write(h:4);
writeln;
end.
Explicație:
am realizat toate într-un singur program. Daca iti trebuie separat, cred, şi sunt sigur, ca esti in stare sa faci asta... Succese!
