Найти сумму нечетных элементов - Паскаль, Turbo Pascal, PascalABC.NET

p-6 · 29.11.2012, 18:10

Дан массив из 15 элементов. Найти сумму нечетных элементов.

Serge_Bliznykov · 29.11.2012, 21:58

ОМГ.

Код:

s := 0;
for i:=1 to 15 do
  if odd(a[i]) then s := s + a[i];
WriteLn('summa = ', s);

29.11.2012, 18:10	#1
p-6 Новичок Джуниор Регистрация: 29.11.2012 Сообщений: 6	Найти сумму нечетных элементов Дан массив из 15 элементов. Найти сумму нечетных элементов.

29.11.2012, 21:58	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	ОМГ. Код: `s := 0; for i:=1 to 15 do if odd(a[i]) then s := s + a[i]; WriteLn('summa = ', s);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Найти и вывести на экран индексы четных элементов каждой строки и нечетных элементов каждого столбца.	Richik123	Помощь студентам	0	27.11.2012 16:29
найти сумму всех нечетных чисел в диапазоне от 42 до 73.	mkerimkulov	Общие вопросы C/C++	11	29.09.2012 11:09
Дана последовательность из n целых чисел. Найти сумму нечетных элементов этой последовательности.С++	punkvalera	Помощь студентам	1	13.05.2012 20:35
Найти сумму элементов, стоящих на четных местах и произведение элементов, стоящих на нечетных местах	Dark Raven	Помощь студентам	2	16.03.2012 10:09
Найти сумму положительных нечетных чисел меньше 50	мандаринка	Паскаль, Turbo Pascal, PascalABC.NET	8	22.12.2007 21:45