URGENT VA ROG!!!
Se considera declaratiile
type Ora=0..23;
Grade=-40..40;
Temperatura=array [Ora] of Grade;
var t:Temperatura;
Componentele variabilei t reprezinta temperaturile masurate din ora in ora pe parcursul a 24 de ore.Elaborati un program care:
Indica maximul si minimul temperaturii
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
