Question

Urgent !!!!
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:
a)calculeaza temperatura medie;
b)indica maximul si minimul temperaturii;
c)indica ora (orele)la care s-a inregistrat temperatura maxima;
d)indica ora (orele)la care s-a inregistrat temperatura minima.

Answer 1

Program temp; Type ora=0..23; grade=0..40; temperatura=array [ora] of grade; Var t:temperatura; i,min,max,s,omin,omax:integer; med:real; Begin For i:=0 to 23 do Readln(t[i]); min:=t[0];max:=t[0]; For i:=0 to 23 do begin s:=s+t[i]; If min>t[i] then begin min:=t[i]; omin:=i; End; If max