Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Prosti brojevi praktikum nizovi
practica 11 ejercicio 3
Typecast an array to other type
Localisation ND
hello world
Вычисление площади фигуры, ограниченной осью абцисс и функцией
fixed vs scientific for double
Calculatrice (case of)
basketball_player_training
8
Please log in to post a comment.