Vetor (aprendendo)

[E.M.I.C.I.D.A]

Boa Tarde !

Pessoal, tive uma aula de vetores e estou realmente no início dessa etapa.

Tentei fazer um vetor aqui em casa agora, mas não está retornando valor nenhum (só zero).

Por gentileza, o que devo fazer ?

segue o código :

program vetores;

var i,n:integer;
var vetor:array [1..10] of integer;


begin

writeln ('Digite um numero: ');
readln (vetor[i]);
vetor[i]:= 0;

for i:= 1 to 10 do
write (vetor[i]);
readln();
end.

Muito Obrigado ! ;D

[rockzilla2109]

Na linha "vetor:= 0" você está atribuindo o valor zero para o vetor que acabou de ser escrito na linha anterior readln(vetor).

Exclua a linha vetor:= 0 e o problemai de apresentar sempre 0 vai ser resolvido.

Porém você sempre atribui o valor lido em "readln(vetor)" no cluster indicado por "i". Mas você precisa primeiro indicar qual cluster do vetor deseja atribuir, carregando primeiro o valor "i" deste modo:

 var i,n:integer;
 var vetor:array [1..10] of integer;
 begin
  writeln ('Digite qual célula (de 1 a 10) deseja escrever: ');
  readln (i);

  writeln ('Digite um numero: ');
  readln (vetor[i]);

  for i:= 1 to 10 do
  write (vetor[i]);
  readln;
 end.

[E.M.I.C.I.D.A]

A sim, cara rodou certinho do jeito que você disse.

Porém, como eu faço para preencher os 10 campos do vetor ?

Pois, do jeito que está , ele preenche 1 campo.

Precisarei de uma outra variável para armazenar o valor do campo preenchido e atribuir + 1 valor ao mesmo para poder preencher o outro campo ?

[Carlos_fish]

var i,n:integer;

var vetor:array [1..10] of integer;

begin

writeln ('Digite qual célula (de 1 a 10) deseja escrever: ');

readln (i); {aqui você só está definindo o valor da variável i}

writeln ('Digite um numero: ');

readln (vetor);{aqui você está definindo o valor do seu vetor na posição i que você informou lá em cima}

for i:= 1 to 10 do

write (vetor);{aqui você ´vai mostrar o valor do vetor da posição 1 até a posição 10, porém você só definiu o valor de uma posição do seu vetor e o resto por default é zero}

readln;

for i:=1 to 10 do

begin

write('Digite a posição ',i,' do vetor: ');

readln(vetor); {aqui você vai definir os valores do vetor da´posição 1 a 10}

end;

end.

[Simon Viegas]

A sim, cara rodou certinho do jeito que você disse.

Porém, como eu faço para preencher os 10 campos do vetor ?

Pois, do jeito que está , ele preenche 1 campo.

Precisarei de uma outra variável para armazenar o valor do campo preenchido e atribuir + 1 valor ao mesmo para poder preencher o outro campo ?

Olá,

Da mesma forma que vai pra exibir...: fazendo percorrer posição por posição.

for i:=1 to 10 do
  begin
  writeln('Digite um numero: ');
  readln(vetor[i]);
  end;

Abraços