Se considera declaratiile:
Type ora=0..23
Grade=-40..40
Temperatura=array[ora] of grade
Var t:temperatura;
Sa se elaboreze un program care:
a) indica maximul si minimul temperaturii
b)indica ora(orele) la care s-a inregistrat temperatura maxima
c) indica ora(orele) la care s-a inregistrat temperatura minima
a) var t: temperatura;
s:real;
i:ora;
for i:=0 to 23 do realdn (t[i]);
s:=0;
for i:=0 to 23 do s:=s+ t[i];
writeln ('temperatura medie este' , s:24:6:2);
readln;
end.
