Подпрограммы (Pascal) - Помощь студентам

Дабл · 23.12.2009, 01:23

1) Дан массив (A1,A2....A45). Найти произведение элементов с чётными номерами и сумму с нечётными номерами.

Помогите кто разбирается пожалуйста.

Voody · 23.12.2009, 03:19

Код:

P:=0;
S:=0;
for i:=1 to 45 do
  if (i mod 2 =0) then P:=P*A[i]
  else S:=S+A[i];

P - произведение
S - сумма

Sasha_Smirnov · 23.12.2009, 03:34

Изначально P должно быть не нулём — а единицей, ага?

23.12.2009, 01:23	#1
Дабл Регистрация: 28.11.2009 Сообщений: 7	Подпрограммы (Pascal) 1) Дан массив (A1,A2....A45). Найти произведение элементов с чётными номерами и сумму с нечётными номерами. Помогите кто разбирается пожалуйста.

23.12.2009, 03:19	#2
Voody Форумчанин Регистрация: 22.06.2009 Сообщений: 310	Код: `P:=0; S:=0; for i:=1 to 45 do if (i mod 2 =0) then P:=P*A[i] else S:=S+A[i];` P - произведение S - сумма

23.12.2009, 03:34	#3
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Изначально P должно быть не нулём — а единицей, ага? Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal, подпрограммы. Сердобольным сюда(:	Xenophilius	Помощь студентам	2	18.12.2009 15:14
Подпрограммы(Pascal)	Niero	Помощь студентам	11	14.12.2009 12:34
Pascal - Циклы и подпрограммы	Бурундук	Помощь студентам	18	18.10.2009 19:47
подпрограммы	Nightt	Помощь студентам	0	18.06.2009 19:22
[Pascal] Функции и процедуры(подпрограммы)	Рамик	Помощь студентам	2	23.03.2009 17:00