16/11/2022 ; 6:30 PM

5. Arreglos unidimensionales/Programas/Programa 5.13/Programa 5.13.c

@@ -0,0 +1,66 @@
+#include <stdio.h>
+
+/* Ordenación por selección directa. */
+
+#define MAX 100
+
+void Lectura(int*, int);
+void Ordena(int*, int); /* Prototipos de funciones. */
+void Imprime(int*, int);
+
+void main(void)
+{
+	int TAM, VEC[MAX];
+	do
+	{
+		printf("Ingrese el tamaño del arreglo: ");
+		scanf("%d", &TAM);
+	} while (TAM > MAX || TAM < 1); /* Se verifica que el tamaño del arreglo sea
+	➥correcto. */
+
+	Lectura(VEC, TAM);
+	Ordena(VEC, TAM);
+	Imprime(VEC, TAM);
+}
+
+void Lectura(int A[], int T)
+/* La función Lectura se utiliza para leer un arreglo unidimensional de T
+➥elementos de tipo entero. */
+{
+	int I;
+	for (I = 0; I < T; I++)
+	{
+		printf("Ingrese el elemento %d: ", I + 1);
+		scanf("%d", &A[I]);
+	}
+}
+
+void Imprime(int A[], int T)
+/* Esta función se utiliza para escribir un arreglo unidimensional
+➥ordenado de T elementos de tipo entero. */
+{
+	int I;
+	for (I = 0; I < T; I++)
+		printf("\nA[%d]: %d", I, A[I]);
+}
+
+void Ordena(int A[], int T)
+/* La función Ordena utiliza el método de selección directa para ordenar
+➥los elementos del arreglo unidimensional A. */
+{
+	int I, J, MEN, L;
+	for (I = 0; I < (T - 1); I++)
+	{
+		MEN = A[I];
+		L = I;
+		for (J = (I + 1); J < T; J++)
+			if (A[J] < MEN)
+			{
+				MEN = A[J];
+				L = J;
+			}
+		A[L] = A[I];
+		A[I] = MEN;
+	}
+}
+