¿Cómo hago este programa de vectores?
ola me puedes ayudar con este problema por favor¿?
Escribir un programa que pida al usuario N números enteros para almacenarlos en
un array. Posteriormente, el programa deberá escribir dichos números en pantalla
en el orden inverso al que se introdujeron, indicando cual es el menor y el número
de apariciones de este así como el lugar (o los lugares) que ocupaba en la lista
inicial.
1 Respuesta
¿En qué lenguaje de programación necesitas hacerlo.?
lo necesito en pascal.
Te propongo esta solución:
Uses CRT;
CONST
NÚMEROS=10; {Como no sabemos la cantidad de n£meros a introducir he supuesto como tope 10.
Luego puedes modificar la constante si quieres otra cantidad}
Type
TipoTabla=Array[1..NUMEROS] of Integer;
TipoLogico = Array [1..NUMEROS] of Boolean;
Var
TABLA : TipoTabla;
I,J : Integer;
MENOR : Integer;
POSI : Integer;
AUXT : TipoTabla;
LÓGICO : TipoLogico;
Procedure IniciaLogico(Var TL : TipoLogico);
var
i : Integer;
Begin
For i:=1 to 10 do
tl:=false;
End;
begin
IniciaLogico(LÓGICO);
for i:=1 to NÚMEROS do
Begin
clrscr;
Writeln('Introduzca un n£mero: ');
readln(TABLA);
end;
Writeln('Pulse una tecla para continuar');
Readkey;
Clrscr;
{Ya hemos le¡do los n£meros. Ahora vamos con la presentaci¢n en pantalla}
for i:=NÚMEROS downto 1 do
begin
Write(TABLA:4);
end;
Writeln;
{Ahora buscaremos el menor}
MENOR:=TABLA[1];
LÓGICO[1] := True;
for i:=2 to NÚMEROS do
begin
if TABLA<MENOR then
begin
IniciaLogico(LÓGICO);
MENOR:=TABLA;
LÓGICO:=TRUE
end
else
if TABLA=MENOR then
LÓGICO:=True;
end;
Writeln('El menor es ',MENOR, 'y ocupa la(s) posici¢n(es) ');
For i:= 1 to 10 do
IF LÓGICO=True then
Write(i:2,',');
readln;
end.
