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

@Zikon · Регистрация: 22.04.2022

Студворк — интернет-сервис помощи студентам

в последовательности натуральных чисел определяет разницу
среднего арифметического и количества двузначных чисел, кратных 3 или оканчивающихся
на 3. Программа получает на вход количество чисел, а затем сами числа. Программа должна
вывести одно число – разницу среднего арифметического и количества двузначных чисел,
кратных 3 или оканчивающихся на 3

Входные данные: 5, 30, 33, 36, 12, 11
Выходные данные: 23.75

@JuriiMW · 16.12.2022, 04:45

Pascal
1
2
3
## var a:=readarrinteger(readinteger);
var u:=a.Where(x->(x mod 3=0)or(x div 10=3));
if u.Any then (u.Average-u.Count).Print else 'нет таких'.print

@SpectatorBH · 16.12.2022, 10:04

Pascal
1
2
3
4
5
## 
var s := ReadArrInteger(ReadInteger)
        .Where(x->(x.InRange(10,99)) and 
                  ((x mod 3 = 0) or (x mod 10 = 3)));
print(s.Average - s.Count);

Добавлено через 5 минут
JuriiMW, вы поторопились

-- нужны только двузначные и оканчивающиеся на 3, а не начинающиеся на 3, хотя на контрольном примере этого и незаметно.

@JuriiMW · 16.12.2022, 10:41

SpectatorBH, вы тоже поторопились:
входные данные от ТС — это только пример
что будет, если ввести 5 16 16 16 16 16 ?

@SpectatorBH · 16.12.2022, 12:38

Будет шляпа!

Кликните здесь для просмотра всего текста

...как говорится, два дебила -- это сила! Но совместными усилиями добили-таки детскую задачку

Вот что значит невыспаться...

@Zikon · 16.12.2022, 20:42 **[ТС]**

а вы бы не могли сказать решение в паскаль абц?

@Sun Serega · 16.12.2022, 23:28

Сообщение от JuriiMW

что будет, если ввести 5 16 16 16 16 16 ?

Я думаю не важно, будет ли ошибка в потоке вывода или потоке ошибок (и какая) - в задании это не указано.

Сообщение от Zikon

в паскаль абц?

Zikon, вам сделали на PascalABC.Net, в раздел которого вы написали. Если надо на PascalABC - пишите в соответствующий раздел.

@Zikon · 17.12.2022, 12:21 **[ТС]**

спасибо, но почему в паскале выдаёт тогда ошибку?

@Sun Serega · 17.12.2022, 13:36

Пока вы не укажете позицию и текст ошибки - мы можем только гадать.

@Zikon · 17.12.2022, 17:54 **[ТС]**

а лан я разобрался спс еще раз. я вообще сам изначально сделал, но боялся что входные данные если будут "каверзные" то ничего не сработает, но вроде все ок

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Zikon 0 / 0 / 0 Регистрация: 22.04.2022 Сообщений: 12

	В последовательности натуральных чисел определить разницу среднего арифметического и количества двузначных чисел 15.12.2022, 22:20. Показов 3750. Ответов 9 Метки Pascal (Паскаль), pascal abc net, pascal abc, pascal abc.net, паскаль abc.net (Все метки) в последовательности натуральных чисел определяет разницу среднего арифметического и количества двузначных чисел, кратных 3 или оканчивающихся на 3. Программа получает на вход количество чисел, а затем сами числа. Программа должна вывести одно число – разницу среднего арифметического и количества двузначных чисел, кратных 3 или оканчивающихся на 3 Входные данные: 5, 30, 33, 36, 12, 11 Выходные данные: 23.75 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	16.12.2022, 10:41
	SpectatorBH, вы тоже поторопились: входные данные от ТС — это только пример что будет, если ввести 5 16 16 16 16 16 ? 0

@SpectatorBH 51 / 40 / 12 Регистрация: 01.11.2022 Сообщений: 98
	16.12.2022, 12:38
	Будет шляпа! Кликните здесь для просмотра всего текста ...как говорится, два дебила -- это сила! Но совместными усилиями добили-таки детскую задачку Вот что значит невыспаться... 0

@Zikon 0 / 0 / 0 Регистрация: 22.04.2022 Сообщений: 12
	16.12.2022, 20:42 [ТС]
	а вы бы не могли сказать решение в паскаль абц? 0

@Zikon 0 / 0 / 0 Регистрация: 22.04.2022 Сообщений: 12
	17.12.2022, 12:21 [ТС]
	спасибо, но почему в паскале выдаёт тогда ошибку? 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	17.12.2022, 13:36
	Пока вы не укажете позицию и текст ошибки - мы можем только гадать. 0

@Zikon 0 / 0 / 0 Регистрация: 22.04.2022 Сообщений: 12
	17.12.2022, 17:54 [ТС]
	а лан я разобрался спс еще раз. я вообще сам изначально сделал, но боялся что входные данные если будут "каверзные" то ничего не сработает, но вроде все ок 0