Buenas!! Estoy empezando a usar Lazarus, programando en pascal, y me he encontrado con un pequeño problema que no se resolver. No es nada dificil, seguro que una tonteria... Os dejo el codigo.
const max=5;
type tabla=array[1..max] of integer;
procedure LTabla(var mit:tabla);
var i:integer;
begin
for i:=1 to max do
begin
write('Introduce el valor de la resistencia ',i,' : ');
readln(mit[i])
end
end;
var t:tabla;
maxim,i:integer;
begin
LTabla(t);
maxim:=0;
for i:=1 to maxim do
if t[i]>maxim then
maxim:=t[i];
writeln('La mayor de las resistencias es la de ',maxim,'.');
readln
end.
La cuestion es que, una vez acaba el procedure, los valores de mit no se guardan en t y el maximo siempre resulta 0. He probado poniendo "var" delante de mit pero tampoco funciona.
Alguna ayuda?
Mostrar Mensajes
