0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 35

Вычислить количество и произведение элементов меньших среднего арифметического первых 2 элементов массива

10.04.2015, 11:43. Показов 2111. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите решить задачки,плиииз
дан одномерный массив b1,b2,....,bn.Вычислить колличество и произведение элементов меньших среднего арифметического первых 2 элементов этого массива.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.04.2015, 11:43
Ответы с готовыми решениями:

Найти количество элементов, меньших среднего арифметического всех элементов матрицы
Дана матрица А размера NxM. Найти количество элементов, меньших среднего арифметического всех элементов матрицы использовать компоненты...

Массив. Найти количество элементов, меньших среднего арифметического положительных элементов этого массива
Всем привет! Пмогите пожалуйста написать программу! Массив a(30) сформирован случайным образом. Найти в нем количество элементов, меньших...

в массиве . найти произведение ненулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива
В массиве Х(N) найти произведение ненулевых элементов, количество элементов, превышающих значение среднего арифметического элементов...

1
 Аватар для Sigin
226 / 225 / 112
Регистрация: 20.10.2013
Сообщений: 808
10.04.2015, 17:37
Лучший ответ Сообщение было отмечено Аниточка как решение

Решение

Аниточка, вообще - 1 задача - 1 тема, но ладно, алгоритм следующий:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  SysUtils;
 
var
  i, q, N: Integer;
  b: array of Integer;
  S, Sa: Double;
 
begin
  repeat
    Write('Длина массива N=');
    ReadLn(N);
  until (N > 2);
  q := 0;
  S := 1;
  Sa := 0;
  SetLength(b, N);
  for i := 0 to N - 1 do
  begin
    ReadLn(b[i]);
    if i in [0 .. 1] then
      Sa := Sa + b[i];
  end;
  Sa := Sa / 2;
  for i := 0 to N - 1 do
    if b[i] < Sa then
    begin
      Inc(q);
      S := S * b[i];
    end;
  WriteLn(q);
  WriteLn(S);
  ReadLn;
  ReadLn;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.04.2015, 17:37
Помогаю со студенческими работами здесь

в массиве . найти произведение нулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива
В массиве Х(N) найти произведение нулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива....

Определить количество элементов массива, меньших среднего арифметического значения
В массиве, состоящем из n элементов, определить количество элементов меньших среднего арифметического значения. (Помогите найти ошибку...

Подсчитать количество элементов файла f, меньших среднего арифметического всех элементов
Пусть type reals = file of real; Подсчитать количество элементов файла f, меньших среднего арифметического всех элементов этого файла....

В каждой строке матрицы найти количество элементов, меньших среднего арифметического ее элементов
Дана матрица. В каждой строке найти количество элементов, меньших среднего арифметического всех элементов этой строки.

Подсчитать количество элементов файла f, меньших среднего арифметического всех его элементов
type reals = file of real; Описать функцию less(f) от непустого файла f типу reals, что подсчитывает количество елементов файла f,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек.
Massaraksh7 21.03.2025
Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .
Async/await в Swift: Асинхронное программировани­е в iOS
mobDevWorks 20.03.2025
Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .
Колмогоровская сложность: Приёмы упрощения кода
ArchitectMsa 20.03.2025
Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .
PostgreSQL в Kubernetes: Подготовка кластера и настройка
Mr. Docker 20.03.2025
Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммиро­вание
bytestream 20.03.2025
Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .
Состояние гонки в C#: подводные камни многопоточного программировани­я
UnmanagedCoder 20.03.2025
Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга
Reangularity 20.03.2025
Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .
JUnit или TestNG: Выбираем Java-фреймворк для тестирования
Javaican 20.03.2025
История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .
Разбиваем монолит на два микросервиса и реализуем CI/CD
ArchitectMsa 20.03.2025
Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru