Exercício 03 Vetor - Pascal

3) Faça um programa em Pascal que dada um vetor de 50 números, imprimi-lo na ordem inversa à da
leitura.

Program Vetor03 ;
var
 vetor1:array[1..50]of integer;
 vetor2:array[1..50] of integer;
 i:integer;
 Begin
  for i:= 1 to 50 do
   Begin
    Write('Informe ',i,' Valor: ');
    readln(vetor1[i]);
   End;
   
   for i:= 1 to 50 do
   Begin
    vetor2[51-i]:= vetor1[i];
   End;
   
   for i:= 1 to 50 do
   Begin
    Writeln(vetor2[i]);    
   End;
      
 End.

Categories: Pascal , Programação