Cargar elementos consecutivos en un vector
Publicado por Alejandro (15 intervenciones) el 11/08/2015 03:06:00
Hola que tal, tengo un problema con un trabajo que me dieron. Debo crear un vector de 40 elementos consecutivos a partir de un numero introducido por el usuario. Es decir, el programa pregunta INGRESE UN NUMERO, supongamos que ingresa 2, el vector se tiene que generar 2 3 4 5 6 7 8 9 10....42 y asi hasta que se csa el numero 5, tiene que generar 45 elementos,5, tiene que generar 45 elementos.
Hice este codigo, pero el problema es que me carga hasta el numero 40, y no 40 elementos, por ejemplo si pone el numero 39, se carga hasta el numero 40, y no 40 elementos.
Hice este codigo, pero el problema es que me carga hasta el numero 40, y no 40 elementos, por ejemplo si pone el numero 39, se carga hasta el numero 40, y no 40 elementos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{}program trabajo;
uses crt;
Const
max = 40;type
tv_vectorA = array [1..max] of integer;
var
vv_vectorA: tv_vectorA; ve_elem: integer;Procedure cargarelemento;
var
i: integer;begin
write ('Ingrese un elemento: ');
writeln;
readln (ve_elem);
for i:= ve_elem to max do
begin
writeln (i);
end;
end;
BEGIN
cargarelemento;
END.Valora esta pregunta
0