Среди элементов массива выбрать все меньшие числа 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы