La programación Pascal sabe que la matriz A contiene n elementos enteros. ¿Cuántos números máximos hay en A? ¿Cuántos números grandes hay? ¿Cuántos números diferentes? Pida respuestas a los expertos

①Código:

¿Programa? Array_stat

¿Programa? sortArray(var?arr?:?array?'s?integer);

Definir variables

min,? I,? j,? temperatura:? Entero;

Inicio

¿Para qué? ¿I? :=?Bajo(arr)? ¿A dónde ir? ¿Alto(arr)-1? ¿

Iniciar

sensibilidad? :=?Yo;

¿Para qué? j? :=?yo+1? ¿A dónde ir? ¿Alto(arr)? ¿Hacer lo?

¿Y si? llegar[j]? <? llegar[min]? ¿Entonces qué?

¿Mínimo? :=?j;

¿Trabajadores temporales? :=?arr[yo];? llegar[yo]? :=?arr[min]; llegar[min]? :=?Temperatura;

Fin;

var?

n,? I,? ¿metro? :?Entero;

¿Respuesta? :?¿Formación? ¿de? Entero;

Inicio

readln(n);

setlength(one, n);

¿Para qué? ¿I? :=?Bajo (uno)? ¿A dónde ir? ¿Alto(a)? ¿Hacer lo? leer(a[I]);

ordenar matriz(a);

writeln("");

m? :=?1;

¿Para qué? ¿I? :=?Alto(uno)-1? ¿Donto? ¿Bajo (uno)? ¿Hacer lo?

Inicio

¿Y si? (¿A[i]?<>?a[i+1])? ¿Entonces qué? ¿comenzar? escrito(m);? ¿metro? :=?1?End

¿Y si? ¿comenzar? Inc(m);? Diciembre (domingo);? Fin;

Fin;

writeln(m);

writeln(n);

Fin.

②Corriendo:

Siete

5?4?6?3?2?6?Nueve

Seis