PROBLEMA CON ARRAYS
Publicado por Federico (4 intervenciones) el 20/07/2017 00:40:05
BUENAS TARDES, HACE VARIOS DIAS QUE ME TIENE MAL UN EJERCICIO, TENGO UN PROBLEMA AL CARGAR UN SEGUNDO ARREGLO, EL PRIMERO LO CARGA BIEN, PERO AL LLEGAR AL SEGUNDO, APENAS APRIETO UNA TECLA SE CIERRA EL PROGRAMA, AGRADECERIA MUCHO SU AYUDA. EL CODIGO ES ESTE:
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
program codbarras (input,output);
uses crt;
TYPE
vector1=array [1..3] of string;
vector2=array [1..4] of string;
var
vectorcod:vector1;vectorimp:vector2;procedure IngresoDatos; {Se ingresan los datos}
var
i,j:integer;
begin
i:=0;
j:=0;
write ('INGRESE EL CODIGO DE LA EMPRESA: ');
for i:= 1 to 3 do
begin
read (vectorcod[i]);
end;
write ('INGRESE EL IMPORTE: ');
for j:= 1 to 4 do
begin
read (vectorimp[j]);
end;
end;
begin
IngresoDatos;
readkey;
end.Valora esta pregunta
0