Найти среднее арифметическое последних К и первых L элементов одномерного массива Z размерности N - VB

Узнай цену своей работы

Формулировка задачи:

Задание состоит в следующем: "Найти среднее арифметическое последних К и первых L элементов одномерного массива Z размерности N." Я не знаю как выделить часть элементов массива, т.е. например первых L элементов из массива. Как это сделать я не могу понять, пытался пользоваться поиском, но ни чего подобного не нашёл. Нашёл для одномерных массивов только среднее арифметическое чётных/нечёных и т.п. Если будет хоть часть кода, например на поиск среднего арифметического первых L элементов, мне будет это достаточно. В теории после этого собираюсь записать массив в обратном порядке и уже найти среднее арифметическое для последних элементов (которые стали первыми). ну и дальше ср. ариф. для получившихся значений средних арифметических от двух случаев. Хотя по идеи эта задача должна решаться легче.

Решение задачи: «Найти среднее арифметическое последних К и первых L элементов одномерного массива Z размерности N»

textual
Листинг программы
dim z as long,l as long,k as long,i as long,s as long
z=10'z=inputbox("z=")
l=3'l=inputbox("l=")
k=4'k=inputbox("k=")
redim a(1to z)as long
for i=1to z
  a(i)=int(rnd*z)
  if i<=l or i>z-k then s=s+a(i)
  debug.?a(i),s
next
msgbox s/(k+l)

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

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