Buscar 5 menores de un vector
Publicado por Rusa (2 intervenciones) el 07/12/2017 00:56:48
Hola. Tengo que hacer un programa que muestre los cinco menores de un array y sus posiciones, este es el programa hasta ahora, pero solamente me muestra cinco veces el mas menor. Si alguien me puede ayudar se lo agradeceria.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program menores;
uses crt;
type
vector= array [1..10] of integer;
var
v:vector;procedure cargar (var v:vector);
var
i:integer;begin
for i:= 1 to 10 do
v[i]:=random(10);
end;
procedure menor (v:vector);
var
i,j,menor,posi:integer;
begin
menor:=1000;
posi:=1;
for i:= 1 to 5 do
begin
for j:=1 to 10 do
if v[j]<menor then
begin
menor:=v[j];
posi:=j;
end;
writeln(menor,' ',posi);
menor:=1000;
end;
end;
procedure mostrar (v:vector);
var
i:integer;begin
for i:=1 to 10 do
writeln(v[i],' ',i);
end;
begin
cargar(v);
menor(v);
mostrar(v);
end.Valora esta pregunta
0