Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: среднее арифметическое отрицательных элементов массива  (Прочитано 12559 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Герасим
Интересующийся

ru
Offline Offline

« : 18-12-2010 10:26 » 

1.     Вычислить среднее арифметическое отрицательных элементов массива, превышающих заданную величину, подсчитать количество таких элементов.
2.     В массиве удалить элемент перед последним отрицательным элементом превышающим заданную величину.
вот код:
Код:
Dim mas() As Integer, n As Integer
Private Sub Command1_Click()
a = Val(InputBox("введите число"))
n = Val(InputBox("введите размер массива"))
Print "размер массива = "; n
Print "введеное число = "; a
ReDim mas(1 To n)
Randomize
For k = 1 To n
mas(k) = Rnd * 100 - 50
Next k
Print: Print
'For k=1 To n
k = 1 'начальный min элемент
Do
Print mas(k);
k = k + 1 'изменение управляющей переменной цикла
Loop Until k > n
Print: Print
'Next k
'поиск мin модуля элемента
kmin = 1 'начальный min элемент
For k = 2 To n
If mas(k) < mas(kmin) Then
kmin = k
End If
Next
Print "min элемент = "; mas(kmin)
Print "номер min элемента равен = "; kmin
'поиск мin  положительного элемента
p = 0 'нет положительного элемента
For k = 1 To n
If mas(k) > 0 Then
kmin = k 'начальный номер min элемента
p = 1
End If
Next k
If p = 0 Then
Print "нет положительного элемента"
Else
For k = 1 To n
If mas(k) > 0 Then
If mas(k) < mas(kmin) Then
kmin = k
End If
End If
Next
Print "min положительный элемент = "; mas(kmin)
Print "номер min положительного элемента = "; kmin
End If
End Sub

Private Sub выход_Click()
End
End Sub

народ,как подсчитать, среднее арифметическое отрицательных элементов массива?
« Последнее редактирование: 18-12-2010 11:08 от Джон » Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 18-12-2010 10:30 » 

а чем отличается ср. арифметическое отриц. чисел, от ср.арифм. положительных чисел?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Герасим
Интересующийся

ru
Offline Offline

« Ответ #2 : 18-12-2010 10:37 » 

ну ср отрицательных это когда складываються все отрицательные и деляться на их количество,а
ср. положит. это когда складываються все поолжит и деляться на их количество))
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 18-12-2010 10:38 » 

Ну... а в чем тогда вопрос?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Герасим
Интересующийся

ru
Offline Offline

« Ответ #4 : 18-12-2010 21:27 » 

как записать сумму и среднеее значение в этом коде???()
Записан
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #5 : 18-12-2010 21:44 » 

Герасим, а что делает этот код? Объясни строчка за строчкой.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines