ayuda con arreglos
Publicado por Federico (2 intervenciones) el 13/08/2019 21:35:58
Hola, necesito poner un arreglo como parámetro en un procedimiento y me sale el siguiente error.
Valora esta pregunta
0
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta
{Mira Este Ejemplo }
program arreglos_u2;
uses
crt;
var
i : integer;a : array[0..19] of real;
procedure carga(i : integer; var a : array of real);
begin
for i := 0 to 19 do
begin
write('Ingresar Elemento Nº : ',i + 1,' = ');
readln(a[i]);
end;
end;
procedure presenta(un : array of real);
begin
for i := 0 to 19 do
writeln(a[i]:0:2);
readkey;
end;
begin
clrscr;
carga(i,a);
clrscr;
presenta(a);
end.