Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Ex5b20
Program tabel; Uses crt; Type ora=0..23; Grade=-40..40; Temperatura=array[ora] of grade; Var t:temperatura; Max,min:grade; Procedure introd; Var o:ora; Begin Randomize; For o:=0 to 23 do Begin T[o]:=random(40); End; End; Procedure afis; Var o:ora; Begin Writeln('Ati introdus urmatoarele temperaturi'); For o:=0 to 23 do write(t[o],' '); End; Procedure ora_max; Var o:ora; m:integer; Begin M:=t[0]; For o:=1 to 23 do Begin If m<t[o-1] then m:=t[o-1] End; Writeln('Ora maxima este ', m) End; Begin Introd; afis; ora_max; End.
run
|
edit
|
history
|
help
0
RENAN COSTA CARLOS DA CUNHA 600623343
кристина
Sasmandar
Tri 1.0
Multiplicação de Matrizes
practica 3 ejercicio 7
eliminar elemento de un arreglo
BubbleSort (slimst)
Сумма пар чисел кратных и некратных 11
Matrix