Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement