Guia 5 - Ej1

program G05Ej1;
type
  TV=array[1..15] of integer;
procedure escVec(var A:TV;N:byte); //Escribe los datos en el vector

var
  val:integer;
  i:byte;
begin
  for i:=1 to N do
  begin
    Write('Ingrese un valor: ');readln(val);
    A[i]:=val;
  end;
end;

function SumaVec(A:TV;N:byte):integer; //Suma los elementos del vector

var
  i:byte;
begin
  SumaVec:=0;
  for i:=1 to N do
  begin
    SumaVec:=SumaVec+A[i]
  end;
end;

procedure MaxMin(A:TV;N:byte);     //Encuentra valor max y min
var
  max,min:integer;
  i:byte;
begin
  max:=0;min:=99999999;
  for i:=1 to N do
  begin
    if A[i]>max then
      max:=A[i];
    if A[i]<min then
      min:=A[i];
  end;
  writeln('Su valor maximo es ',max,' y su valor minimo ',min);
end;

procedure permutar(A:TV;var B:TV;N:byte);   //Permuta los valores de A en B
var
  aux:integer;
  i:byte;
begin
  aux:=A[N];
  write('Valores del vector B: ');
  for i:=1 to N do
  begin
    B[i]:=aux;
    N:=N-1;
    aux:=A[N];
    write(B[i],' - ');
  end;
end;

var
  VecA,VecB:TV;
  N:byte;
begin //Programa Principal
  repeat
  writeln('Ingrese cuantos valores va a ingresar <=15 ');readln(n);
  until n<=15 ;
  escVec(VecA,n);
  writeln('Su suma es: ',SumaVec(VecA,n));
  MaxMin(VecA,N);
  permutar(VecA,VecB,N);
  readln();
end.