одномерные массивы

@Валентин94 · Регистрация: 29.09.2010

В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение элементов с четными номерами.

@STGE · 07.10.2010, 20:51

Pascal

...
p:=a[2];
for i:=3 to n do
if not(odd(i)) then p:=p*a[i];
writeln ('произведение = ',p);
...

@SuPeR XaKer · 07.10.2010, 20:51

Pascal

pr:=1;
for i:=1 to n do
if not odd(i) then
begin
pr:=pr*a[i];
end;
writeln('PR:=',pr);

@Валентин94 0 / 0 / 0 Регистрация: 29.09.2010 Сообщений: 21
		1
	одномерные массивы 07.10.2010, 20:45. Показов 1193. Ответов 2 Метки нет (Все метки) В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение элементов с четными номерами. 0

	07.10.2010, 20:51

Опции темы

Решение