Guia 5 - Ej1 [C]

program G05Ej1;
type
  TV=array[1..15] of integer;
procedure LeeVec(var A:TV;N:byte); //Carga los datos en el vector
var
  i:byte;
begin
  for i:=1 to N do
  begin
    Write('Ingrese un valor: ');
    readln(A[i]);
  end;
end;

function SumaVec(A:TV;N:byte):integer; //Suma los elementos del vector
var
  i:byte;
  aux:integer;
begin
  aux:=0;
  for i:=1 to N do
  begin
    aux:=aux+A[i];
  end;
  SumaVec:=aux;
end;

procedure MaxMin(A:TV;N:byte;var max,min:integer);     //Encuentra valor max y min
var
  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;
end;

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

procedure EscVec(A:TV;N:byte);  //Escribe el vector en paantalla
var
  i:byte;
begin
  for i:=1 to N do
  begin
    write(A[i],' - ');
  end;
end;

var
  max,min:integer;
  VecA,VecB:TV;
  N:byte;
begin //Programa Principal
  repeat
  writeln('Ingrese cuantos valores va a ingresar <=15 ');readln(N);
  until n<=15 ;
  leeVec(VecA,N);
  writeln('Su suma es: ',SumaVec(VecA,N));
  MaxMin(VecA,N,max,min);
  writeln('Su valor maximo es ',max,' y su valor minimo ',min);
  permutar(VecA,VecB,N);
  write('Los valores de B son ');EscVec(VecB,N);
  readln();
end.