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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2014, 07:44   #1
Evgenii_95
Пользователь
 
Регистрация: 13.11.2014
Сообщений: 18
По умолчанию Дан массив из n элементов. Определить сумму тех, которые нечетные и отрицательные

Данн массив из n элементов определить сумму тех которые нечетные и отрицательные.
Evgenii_95 вне форума Ответить с цитированием
Старый 11.12.2014, 09:43   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ввод массива самостоятельно напишете?

а вот, собственно, и сама программа ( цикл вычисления суммы):
Код:
SumNegOdd := 0;
for i:=1 to N do 
  if (A[i]<0) and odd(A[i]) then SumNegOdd := SumNegOdd + A[i];
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано 15 целых чисел от 20 до 35. Определить сумму тех из них, которые не делятся на 5 Umka_Kitv Помощь студентам 2 13.03.2013 14:32
Числа вводятся по одному с клавиатуры. Определить сумму тех из них, которые являются парными и тех, которые являются нечетными. d_dima Помощь студентам 3 13.03.2013 12:19
Дана целочисленная квадратная матрица. Определить сумму элементов в тех строках, которые содержат хотя бы один отрицательный элеме EvgeniyPR Помощь студентам 0 18.11.2012 20:02
Определить сумму тех веществееных чисел,которые больше Р. [Паскаль] Анна22 Помощь студентам 1 07.12.2010 20:34
Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–1, 16] Mirel Паскаль, Turbo Pascal, PascalABC.NET 2 04.04.2010 10:58