quinta-feira, novembro 19, 2015

LP - Alimentando um vetor dinamicamente e imprimindo os valores digitados conforme sua posição no vetor - Pascal

Program Vetor;
Var 
    vet:array[1..6] of integer; 
    i:integer;

Begin 
    i:=1;
    repeat
      write ('Digite um número inteito.....: ');
      read (vet[i]);
      i:=i+1;
    until (i=7);
    
    i:=1;
    repeat
      writeln ('Na posição ',i,' do vetor, encontrase o valor ',vet[i]);
      i:=i+1;
    until (i=7);   
end.

Nenhum comentário:

Postar um comentário