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

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

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

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

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

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

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 **[ТС]**

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

@Dmitry_8993 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

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

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

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

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

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

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

Опции темы

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

Решение