Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.12.2011
Сообщений: 5

Найти среднее геометрическое Р отличных от 0 элементов массива С и их количество К

24.12.2011, 01:06. Показов 1204. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Не могу получить зачет.
1. Найти среднее геометрическое Р отличных от 0 элементов массива С и их количество К.
2. Получить новый массив В из исходного массива А вычитанием числа P из элементов массива А.

Заранее признателен!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.12.2011, 01:06
Ответы с готовыми решениями:

Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию
1. Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию 1 < {a}_{i} < 5. Помогите...

Найти среднее арифметическое и среднее геометрическое элементов двумерного массива
Вот наработки. Не соображаю, помогите. int A; int n, m, g; int a = 0; printf("Введите количество строк в...

Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива
Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных чисел и среднее геометрическое...

2
 Аватар для Фаер
792 / 398 / 260
Регистрация: 09.12.2011
Сообщений: 786
Записей в блоге: 53
24.12.2011, 15:59
Лучший ответ Сообщение было отмечено endgus как решение

Решение

Задача №2
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
cls
randomize timer
input "p="; p
x=int(rnd*10)+1' задаём произвольный размер массивов
dim A(x): dim B(x)
 
for i=1 to x
  A(i)=rnd*50-rnd*30: color 2: print A(i)' генерируем произвольные значения элементов массива А
next
for i=1 to x
  B(i)=A(i)-p: color 4: print B(i)' находим значение элементов массива В
next
 
end
Добавлено через 1 час 5 минут
Задача №1
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
cls: k=0: s=1
randomize timer
x=int(rnd*20)+1' задаём произвольный размер массива
dim C(x)
 
for i=1 to x
  C(i)=int(rnd*10-rnd*4): color 3: print C(i)' генерируем произвольные значения элементов массива
  if C(i)<>0 then k=k+1: s=s*C(i)
next
if s<0 then print "Korney net": goto 1
p=s^(1/k)
if k=1 then p=0
 
color 13
print "p="; p
1 print "k="; k
end
Проверьте задачу №1. Я познакомился со ср.геом. только сегодня, так что мог ошибиться.
0
0 / 0 / 0
Регистрация: 24.12.2011
Сообщений: 5
24.12.2011, 21:52  [ТС]
спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.12.2011, 21:52
Помогаю со студенческими работами здесь

Найти среднее геометрическое массива. Максимальный элемент массива увеличить на среднее геометрическое
Добрый день! Дана задача Ввести массив A(N). Найти среднее геометрическое значение массива. Максимальный элемент массива увеличить на...

Найти среднее геометрическое элементов массива, значение элементов массива не превосходит 15 в каждом массиве
Даны два массива. Используя procedure, найти среднее геометрическое элементов массива, значение элементов массива не превосходит 15 в...

Найти среднее геометрическое элементов массива A
Массив-A Задание-Найти среднее геометрическое элементов массива A Условия и ограничения-A&gt;0; N=10

Найти среднее геометрическое элементов массива
Ребят нужно найти среднее геометрическое элементов массива Av(n), удовлетворяющего условия av&gt;av. Пожалуйста помогите!

Найти среднее геометрическое элементов массива
Массив-A Задание-Найти среднее геометрическое элементов массива A Условия и ограничения-A&gt;0; N=10


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru