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

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

01.06.2014, 12:24. Показов 2301. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2014, 12:24
Ответы с готовыми решениями:

Вычислить сумму тех элементов массива, которые больше первого элемента этого массива
Забраковали, начала разбираться почему, сказали забей и дали новую... Сформировать массив A из N...

Найти сумму тех элементов массива, которые больше 15, но меньше 45
Задача: Задан массив n случайных чисел , принадлежащий промежутка . Найти сумму тех элементов...

Найти сумму тех элементов данного массива натуральных чисел, которые кратны заданному К
Язык программирования Паскаль. Дан одномерный массив A натуральных чисел. Найти сумму тех...

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

9
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16844 / 6723 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
01.06.2014, 13:40 2
Цитата Сообщение от Dmitry_8993 Посмотреть сообщение
Кто знает
Я знаю. Что дальше?
А еще я знаю правила форума. И они говорят о том, что вы их нарушили:
1) Тема должна располагаться в соответствующем разделе. Раздел "О форуме и сайтах" явно не относится к нужному.
2) Один вопрос - одна тема.
3) Заголовок темы должен быть осмысленным и отражать суть задания.

Да, ответьте, пожалуйста. Чем вы руководствовались, создавая тему в этом разделе без указания языка? По вашему, здесь форум экстрасенсов? Или как вы хотите получить ответ?
1
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 13
01.06.2014, 13:50  [ТС] 3
Всё понятно учту ваши замечания-спасибо! А форум большой времени мало мне из форума поступают сотни сообщений и что же я ничего немогу сделать чтоб они мне не поступали это просто как новостная лента спама.Дак почему же я немогу просто задать вопрос? Я высказался по этому поводу, в следущий раз буду аккуратен в вопросах и буду излагать их в нужное окошечко.
0
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16844 / 6723 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
01.06.2014, 14:12 4
Цитата Сообщение от 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
1
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 13
01.06.2014, 14:16  [ТС] 5
Нет это в Pascal надо тему уже сделал по 1 вопросу в разделе незнаю пока ответов не было.

Добавлено через 1 минуту
Спасибо
0
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16844 / 6723 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
01.06.2014, 14:22 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
1
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 13
01.06.2014, 14:25  [ТС] 7
Ещё раз благодарен)
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,574
Записей в блоге: 1
04.06.2014, 13:15 8
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;
0
KOPOJI
04.06.2014, 15:49
  #9

Не по теме:

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

0
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 13
09.06.2014, 18:27  [ТС] 10
Мне нужна была подпрограмма к этой теме
0
09.06.2014, 18:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2014, 18:27
Помогаю со студенческими работами здесь

Найти сумму тех элементов массива, которые меньше заданного числа D
В массиве чисел А1, А2, …АN найти сумму тех элементов, которые меньше заданного числа D....

Найти сумму элементов одномерного массива, которые больше заданного числа числа
Дано n чисел. Найти сумму чисел, которые больше числа а.

Найти сумму тех чисел, которые больше заданного М
вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые &gt; заданного М...

Даны 4 вещественных числа. Найти сумму тех чисел, которые больше 5
Решите плиз! Паскаль


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

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

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