Diseño de programa de cálculo de salarios

Dim max es un número entero, min es un número entero

Dim a() a un doble

N = CInt(InputBox( " Cuantas personas:"))

Redim

Máximo = 1: Mínimo = 1

Para i = 1 a n

A (i) = Val(InputBox("Ingrese el primero"; i amp "Salario personal:"))

Si a(i)>a(max) entonces max = i

Si a(I) lt; a(min) entonces min = i

s = s a(i)

Imprime a(one);

p>

Siguiente I

Imprimir

Imprimir "salario promedio="; número de serie

Imprimir "salario máximo=";máximo

Imprimir "salario mínimo=";a(minutos)

Finalizar conector