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 |