Элементы одномерного массива, которые больше среднего значения массива, заменить на 0

@Culture · Регистрация: 05.11.2019

Элементы одномерного массива размером 7, которые больше среднего значения массива, заменит на 0.
Помогите пожалуйста составить программу в VBA , потому что вообще нет представления как их составлять .

@Catstail · 13.11.2019, 11:23

Visual Basic

Sub task(A() as double)
      n%=Ubound(A)
      for i%=1 to n%
          avg#=avg#+A(i%)
      next i%
      avg#=avg#/Cdbl(n%)
      for i%=1 to n%
          if A(i%) > avg# then A(i%)=0
      next i%
End Sub

@Culture 0 / 0 / 0 Регистрация: 05.11.2019 Сообщений: 5
		1
	Элементы одномерного массива, которые больше среднего значения массива, заменить на 0 13.11.2019, 11:07. Показов 1087. Ответов 1 Метки нет (Все метки) Элементы одномерного массива размером 7, которые больше среднего значения массива, заменит на 0. Помогите пожалуйста составить программу в VBA , потому что вообще нет представления как их составлять . 0

Опции темы