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
test28
eliminar elementos de un arreglo
Для Лехи -1
T
test26
nomer4
2
Урок 3, задача 5 Задача 1478. Урок в неделе
Squarepants
подсчёт символов и цифр пока не точка