RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  67472 - VECTORES
Autor:  jazmin moreno
disculpa nesesito hacer un programa de turbo pascal de vectores

1.- HPP que genere 15 numeros aleatorios entre 1 y 25
CON VECTORES
en cada vector deve salir un numero diferente y me sale en todos igual

ASI LO ISE PERO NO ME SALE

{
Programa: HPP que genere 15 numeros aleatorios entre 1 y 25.
fecha: 30032013
}
program jszmn42;
uses crt;
TYPE
jszmn= array [1..15] of integer;
var
i,a,b,c: integer;
begin
clrscr;
Writeln('Numeros aleatorios');
writeln;
for i := 1 to 15 do
begin
writeln('Valor [',i,']: ');
randomize;
c:= random(25) + 1;
begin
for i := 1 to 15 do
begin
highvideo;
randomize;
b:= random(25) + 1;
writeln('Valor [',i,']: ',);
end;
end;
end;
readkey;
end.


no me sale ayuda


Nombre
Apellidos
Correo
Comentarios