Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
POBLAR Y MOSTRAR VECTOR EDADES
procedure leerTotalEdades(var totalEdades:integer ; limInf,limSup:integer); begin repeat read(totalEdades); until (totalEdades>=limInf) and (totalEdades<=limSup); end; procedure poblarVector (var edades:vector;n:integer); var i:integer; begin for i:=1 to n do read(edades[i]); end; procedure mostrarVector (edades:vector;n:integer); var i:integer; begin write('Edades en el vector = '); for i:=1 to n do if (i=1) then write(edades[i]) else write(' , ',edades[i]); end;
run
|
edit
|
history
|
help
0
[DE/GER] Caesar Chiffre (Verschlüsseln)
2
zadacha3
Урок 3 не из учебника. U-контур и функция sign (x)
Tri1
Tinh tong
135
6
Пузырькова сортировка
1 25 5