Среди элементов массива выбрать все меньшие числа 53 - VB
Формулировка задачи:
Пре до мною стоит задача : Среди элементов массива выбрать все, меньшие числа 53. Определить их индексы и количество. Для всех неположительных элементов определить их сумму. Определить среднее значение элементов массива.
Как это реализовать с помощью Visual Basic ума не приложу ... Помогите пожалуйста
Решение задачи: «Среди элементов массива выбрать все меньшие числа 53»
textual
Листинг программы
Private Sub Command1_Click( ) Dim A (1 To 30) As Single Dim Max, Min, S, P As Single Dim J, N, M, K As Byte N = InputBox ("сколько элементов в массиве?") S=0 : P = 1 : K = 0 MsgBox " введите значения элементов A: " FOR J = 1 TO N A(J) = InputBox ("введите очередной элемент") NEXT J MsgBox " Определим максимум и минимум " Max = A(1) : Min = A(1) FOR J = 1 TO N IF A( J) > = MAX THEN MAX= A(J) IF A(J) < = MIN THEN MIN= A(J) Next J MsgBox " максимум = " & max & "минимум = " & min MsgBox " Определим количество ненулевых элементов " FOR J = 1 TO N IF A( J) > 0 THEN K= K+1 Next J MsgBox " Количество ненулевых элементов = " & K MsgBox " Определим элементы, кратные семи: " FOR J = 1 TO N IF A(J)/7 THEN MsgBox "A(J)= " & A(J) Next J END Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д