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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2012, 16:27   #1
Dark Raven
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 19
По умолчанию Найти сумму элементов, стоящих на четных местах и произведение элементов, стоящих на нечетных местах

Задача на Pascal. Дан одномерный массив y=(-1; 5,03; 6,2; -8,4; 0,7; 2,6). Найти сумму элементов, стоящих на четных местах и произведение элементов, стоящих на нечетных местах.
Dark Raven вне форума Ответить с цитированием
Старый 15.03.2012, 17:56   #2
d3qoot
Пользователь
 
Регистрация: 08.06.2011
Сообщений: 30
По умолчанию

Код:
for i:=1 to 6 do
 if odd(i) then
  umn:=y[i]*umn
 else
  sum:=y[i]+sum;
d3qoot вне форума Ответить с цитированием
Старый 16.03.2012, 10:09   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

только к ответу d3qoot дополню, что обязательно нужно проиницилизировать переменные sum и umn:
Код:
  sum := 0;
  umn := 1;
....
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти произведение элементов массива, не равных 0 и стоящих на четных местах ( Delphi ) Nikta1111 Помощь студентам 1 06.12.2011 08:27
Для массива определить сумму всех элементов, стоящих после максимального HECTOR.A. Паскаль, Turbo Pascal, PascalABC.NET 4 17.06.2009 22:04
найти сумму трех последовательно стоящих элементов массива d00ker Помощь студентам 6 25.12.2008 15:07
В одномерном масиве найти длинную цепочку стоящих попарно различных элементов Махряк Помощь студентам 0 05.12.2007 20:00
В одномерном масиве найти длинную цепочку стоящих попарно различных элементов Махряк Помощь студентам 0 29.11.2007 23:09