Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1

@Dmitry_8993 · Регистрация: 01.06.2014

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

1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

KOPOJI · 01.06.2014, 13:40

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

Кто знает

Я знаю. Что дальше?
А еще я знаю правила форума. И они говорят о том, что вы их нарушили:
1) Тема должна располагаться в соответствующем разделе. Раздел "О форуме и сайтах" явно не относится к нужному.
2) Один вопрос - одна тема.
3) Заголовок темы должен быть осмысленным и отражать суть задания.

Да, ответьте, пожалуйста. Чем вы руководствовались, создавая тему в этом разделе без указания языка? По вашему, здесь форум экстрасенсов? Или как вы хотите получить ответ?

@Dmitry_8993 · 01.06.2014, 13:50 **[ТС]**

Всё понятно учту ваши замечания-спасибо! А форум большой времени мало мне из форума поступают сотни сообщений и что же я ничего немогу сделать чтоб они мне не поступали это просто как новостная лента спама.Дак почему же я немогу просто задать вопрос? Я высказался по этому поводу, в следущий раз буду аккуратен в вопросах и буду излагать их в нужное окошечко.

KOPOJI · 01.06.2014, 14:12

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

А форум большой времени мало

И вы думаете, что, разместив в первом попавшемся разделе, вы получите то, что надо и быстрее?
Ну вот вам ответ на первую задачу.

Ruby
1
2
3
4
5
6
7
8
arr = []
puts 'Enter size of array..'
n = gets.chomp.to_i
n.times { arr << Random.rand(100) }
sum = 0
puts arr
arr.each { |el| sum += el if el > arr[0] }
puts "\nSum = #{sum}"

Я уверен, что вам это требуется не на Ruby. Тем не менее, ответ получен. Помогло ли вам это?

http://ideone.com/mJ2rAd

@Dmitry_8993 · 01.06.2014, 14:16 **[ТС]**

Нет это в Pascal надо тему уже сделал по 1 вопросу в разделе незнаю пока ответов не было.

Добавлено через 1 минуту
Спасибо

KOPOJI · 01.06.2014, 14:22

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  N = 5;
var
  arr: array[1..N] of Integer;
  i, sum: Integer;
begin
  Randomize;
  sum := 0;
  for i := 1 to N do begin
    arr[i] := Random(100);
    WriteLn(arr[i]);
  end;
  for i := 2 to N do
    if arr[i] > arr[1] then
        sum := sum + arr[i];
  WriteLn(#13, 'Sum = ', sum)
end

http://ideone.com/k5guls

@Dmitry_8993 · 01.06.2014, 14:25 **[ТС]**

Ещё раз благодарен)

@CodeR · 04.06.2014, 13:15

Pascal
1
2
3
4
5
6
7
8
9
10
Const nmax=100;
Type mas=array[1..nmax] of integer;
//////
Procedure Sum(X:mas;n:byte;Var s:integer);
Var i:byte;
Begin
    s:=0;
    For i:=2 to n do
     if X[i]>X[1] then s:=s+X[i];
End;

KOPOJI · 04.06.2014, 15:49

Не по теме:

Dmitry_8993, а что, в первый раз ответ не устроил..? Зачем вы создавали еще один дубль?

@Dmitry_8993 · 09.06.2014, 18:27 **[ТС]**

Мне нужна была подпрограмма к этой теме

Новые блоги и статьи Все статьи Все блоги /
Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .	Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .

@Dmitry_8993 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 13

	Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1 01.06.2014, 12:24. Показов 2408. Ответов 9 Метки нет (Все метки) 1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1. 0

@Dmitry_8993 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 13
	01.06.2014, 13:50 [ТС]
	Всё понятно учту ваши замечания-спасибо! А форум большой времени мало мне из форума поступают сотни сообщений и что же я ничего немогу сделать чтоб они мне не поступали это просто как новостная лента спама.Дак почему же я немогу просто задать вопрос? Я высказался по этому поводу, в следущий раз буду аккуратен в вопросах и буду излагать их в нужное окошечко. 0

@Dmitry_8993 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 13
	01.06.2014, 14:16 [ТС]
	Нет это в Pascal надо тему уже сделал по 1 вопросу в разделе незнаю пока ответов не было. Добавлено через 1 минуту Спасибо 0

@Dmitry_8993 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 13
	01.06.2014, 14:25 [ТС]
	Ещё раз благодарен) 0

KOPOJI
	04.06.2014, 15:49
	Не по теме: Dmitry_8993, а что, в первый раз ответ не устроил..? Зачем вы создавали еще один дубль? 0

@Dmitry_8993 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 13
	09.06.2014, 18:27 [ТС]
	Мне нужна была подпрограмма к этой теме 0

Опции темы

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1

Решение