Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2012, 14:07   #1
Altynai-93
Новичок
Джуниор
 
Регистрация: 12.12.2012
Сообщений: 2
Стрелка Даны действительные числа a1,...,a20. Получить числа b1,...,b20, где bi - среднее арифметическое членов a1 (Delphi)

Даны действительные числа a1,...,a20. Получить числа b1,...,b20, где bi - среднее арифметическое всех членов последовательности a1,...,a20, кроме (i=1,2,...,20). прошу помочь,завтра нужно сдать
Altynai-93 вне форума Ответить с цитированием
Старый 12.12.2012, 14:28   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Задание непонятное.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.12.2012, 14:40   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Код:
s := 0;
for i:=1 to 20 do s := s + a[i]; {находим сумму всех членов последовательности}

{теперь формируем массив B}
for i:=1 to 20 do 
  b[i] := (s - a[i])/19; {вычитаем неиспользуемый элемент из общей сумму и находим среднее без него}
Профит!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 12.12.2012, 14:42   #4
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Задание непонятное.
Да я б сказал - бредовое какое-то задание...

Вот если бы исходный массив был двумерный... и то было бы непонятно вот это:

Цитата:
кроме (i=1,2,...,20).
UPDATE А вот Сергей в этом, кажется, что-то понял...

UPDATE 2 Посмотрел на код и кажется сам что-то понял
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Последний раз редактировалось Sciv; 12.12.2012 в 14:46.
Sciv вне форума Ответить с цитированием
Старый 12.12.2012, 14:45   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,730
По умолчанию

Есть массив, получить второй, где элемент[i] = среднее арифметическое (первый_массив за исключением a[i])...
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны действительные числа a1,...,a20. Получить числа b1,...,b20, ... Alfa.Shadow Паскаль, Turbo Pascal, PascalABC.NET 2 21.12.2011 15:55
Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где p(y) = a6 y6 + a5 LiptonICE Помощь студентам 4 08.06.2010 15:17
Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где LiptonICE Помощь студентам 6 29.05.2010 23:27
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где Наталья111 Фриланс 7 23.12.2008 11:40