Repetir X vezes

[gmps 0]

galera, é o seguinte:

cadastrar 5 numeros em um vetor, perguntar qtas vezes os numeros do vetor vao se repetir, e imprimi-los...

ex:

Vetor: 25 12 36 10 87

qtas vezes repetir: 2

25

12

36

10

87

25

12

36

10

87

 

entenderam?

 

program repeticao;

 

uses

wincrt;

 

var

i,vezes:integer;

numeros:array[1..5] of real;

 

begin

for i:=1 to 5 do

begin

writeln('digite um numero');

readln(numeros);

end;

 

writeln('qtas vezes deseja repetir?');

readln(vezes);

 

de agora em diante eu ja nao consigo mais...tentei com 2 for, ja tentei de tudo, alguem da uma mao ae..!!

 

[]´z

[ricci ottadnot 4]

cara... mto simples...

 

eh soh usar dois for.. um dentro do outro...

o primeiro conta as vezes e o segundo controla o indice do vetor

 

moleza neh!!!

[Cypher 0]

Realmente tem que ser com 2 For um dentro do outro....

 

for i:=1 to 2 dobegin  for j:= 1 to 5 do  begin	writeln (numeros[j]);  end;end;

pronto já está

 

alguma dúvida??????????''''

 

Cypher :)

[NickIII 0]

Só mais uma dica

Não se esqueça de inicializar a variavel que via ler a quantidade de vezes para repetir com

zero e depois utilizar essa mesma no primeiro for. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[ricci ottadnot 4]

de forma corretissima com o enunciado, o trecho do Cypher ficaria assim:

for i:=1 to vezes dobegin  for j:= 1 to 5 do  begin	writeln (numeros[j]);  end;end;

mas bem q o dono do post poderia ter quebrado a cabeça um pouco..

isto eh mto simples