одномерные массивы. - Паскаль, Turbo Pascal, PascalABC.NET

Анчес · 09.06.2014, 19:34

в массиве S[F] найти произведение элементов,кратных 3.

Mad_Cat · 09.06.2014, 22:52

Код:

p:=1;
for i:=1 to F do 
if s[i] mod 3 = 0 then p:=p*s[i];
writeln(p);

09.06.2014, 19:34	#1
Анчес Регистрация: 09.06.2014 Сообщений: 3	одномерные массивы. в массиве S[F] найти произведение элементов,кратных 3.

09.06.2014, 22:52	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `p:=1; for i:=1 to F do if s[i] mod 3 = 0 then p:=p*s[i]; writeln(p);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одномерные массивы, двумерные массивы, строки	Sand093	C++ Builder	11	20.05.2012 21:48
C++. Одномерные массивы.	bpystep	Помощь студентам	8	18.07.2011 22:41
ОДНОМЕРНЫЕ МАССИВЫ	piznec	Паскаль, Turbo Pascal, PascalABC.NET	4	18.12.2010 21:20
Одномерные массивы(С++)	Scarletred	Общие вопросы C/C++	0	03.04.2010 03:34
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12