Question

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

Answer 1

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.