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

Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших N

30.09.2019, 15:39. Показов 2452. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть задача "Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших заданного N", но я не имею понятия как её сделать
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2019, 15:39
Ответы с готовыми решениями:

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать...

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X
Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел,...

Количество ненулевых чисел на нечётных местах, и среднее арифметическое чисел, меньших заданного Т
Подсчитать кол-во ненулевых чисел, стоящих на нечётных местах, и вычислить среднее арифметическое...

Найти среднее арифметическое положительных чисел матрицы, стоящих на нечётных местах
Дан одномерный массив A(n). Найти среднее арифметическое положительных чисел, стоящих на нечётных...

6
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,035
30.09.2019, 16:06 2
Да очень просто!

Для начала, создадим массив заполненный случайными числами (ну лень мне их вводит ;–)
Pascal
1
2
3
4
begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
end.
Теперь выберем только нечётные, стоящие на нечётных местах:
Pascal
1
2
3
4
5
begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  a.Where((x,i)->odd(i) and(x>0)).Println;
end.
Если кто-то скажет, что мы выбрали числа, которые стоят на чётных местах, то можно возразить сказав «индексация динамических массивов начинается с „0“»… Ну или добавив отрицание в условие:
Pascal
1
2
3
4
5
begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  a.Where((x,i)->not odd(i) and(x>0)).Println;
end.
Перед расчётом среднего арифметического, нужно убедиться, что они есть в наличии:
Pascal
1
2
3
4
5
6
7
8
begin
  var a:=ArrRandomInteger(10,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
end.
Среднее арифметическое? Нет проблем:
Pascal
1
2
3
4
5
6
7
8
9
begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
    b.Average.Println
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
end.
Осталось ввести число N и посчитать количество меньших его:
Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
    b.Average.Println
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
  var n:=ReadInteger;
  a.Count(x->x<n).Println;
end.
Вот и всё!
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.09.2019, 16:10 3
Цитата Сообщение от JuriiMW Посмотреть сообщение
выберем только нечётные, стоящие на нечётных местах:
А нужно положительные на нечетных местах.
0
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,035
30.09.2019, 16:13 4
Упс!
Ну описался. Места нечётные, а значения — положительные.
0
2329 / 1437 / 521
Регистрация: 07.04.2017
Сообщений: 4,750
01.10.2019, 04:46 5
Цитата Сообщение от JuriiMW Посмотреть сообщение
Ну или добавив отрицание в условие:
not имеет больший приоритет чем and, поэтому там нужны скобки.
0
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,035
01.10.2019, 05:19 6
Sun Serega, не нужны там ни какие скобки!
0
2329 / 1437 / 521
Регистрация: 07.04.2017
Сообщений: 4,750
01.10.2019, 08:45 7
А, там имело в виду отрицание только первого элемента... Но тогда лучше использовать .IsEven.
0
01.10.2019, 08:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2019, 08:45
Помогаю со студенческими работами здесь

Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.
Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество...

Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих...

Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее чисел, не меньших X
Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее арифметическое...

Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А,В) и стоящих на нечетных местах
Тема: &quot;Обработка элементов линейных массивов&quot;. Помогите народ, буду благодарен!!!


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru