Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
asdfa
//fpc 3.0.0 program Serie_Tiempo; const max=100; type vector=array[1..max]of real; var serie,dif,movil:vector; n:integer; procedure Leer_Val(var n,limInf,limSup:integer); begin repeat read(n) until(n>=limInf)and(n<=limSup); end; procedure Leer_Vector(var serie:vector;n:integer); var i:integer; begin for i:=1 to n do read(serie[i]); end; procedure Mostrar begin writeln('Hello, world!'); end.
run
|
edit
|
history
|
help
0
08 while
kroliki
zadanye 3 в
Matrix
pdp32
TanTai11A2@
Решето Эратосфена
1486
123
08 Ariketa