Programação

Program lista1questao1 ;

type vetor = array[1..10] of integer;

procedure le_vetor(var v:vetor; n:integer); var i : integer; begin for i := 1 to n do begin write('valor [',i,']='); readln(v[i]); end; end;

procedure inverte_vetor(var v:vetor; n:integer); var i, j, aux : integer; begin j := n; for i := 1 to n div 2 do begin aux := v[j]; v[j] := v[i]; v[i] := aux; j := j - 1; end; end;

procedure mostra_vetor(v:vetor; n:integer); var i : integer; begin clrscr; for i := 1 to n do write(v[i],','); end;

var vetor_a : vetor; i,n: integer;

Begin clrscr; write('Digite a quantidade de numeros(1 a 10)'); readln(n); le_vetor(vetor_a,n); clrscr; mostra_vetor(vetor_a,n); inverte_vetor(vetor_a,n); writeln; writeln('VETOR INVERTIDO'); mostra_vetor(vetor_a,n); readln; End.
Program lista1questao2 ;

type vetor = array[1..20] of integer;

procedure le_vetor(var v:vetor; n:integer); var i : integer; begin for i := 1 to n do begin write('digite um valor'); readln(v[i]); end; end;

procedure mostra_vetor(v:vetor; n:integer); var i : integer; begin for i := 1 to n do write(v[i],','); end;

function palindrome(v:vetor; n:integer):Boolean; var i, j : integer; begin i := 1; j := n; while (v[i]=v[j]) and (i n div 2) then palindrome := true else palindrome := false; end;

var n : integer; a : vetor; Begin clrscr; write('digite a quantidade de valores'); readln(n); clrscr; le_vetor(a,n); clrscr; mostra_vetor(a,n); if (palindrome(a,n) = true) then write('o vetor digitado é palindrome') else write('o vetor digitado não é palindrome');