Найти произведение элементов с нечетными индексами.

@rezus42 · Регистрация: 18.09.2011

Author24 — интернет-сервис помощи студентам

Помогите с массивоми

1) Дан массив целых чисел. Выяснить является ли р-й элемент массива положительным числом.

2) Задан массив целых чисел. Найти произведение элементов с нечетными индексами.

3) Дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором каждый отрицательный элемент заменить на его абсолютную величину.

@Dekio · 03.12.2011, 10:56

Сообщение от rezus42

Задан массив целых чисел. Найти произведение элементов с нечетными индексами

Delphi

pr:=1;
for i:=1 to n do
if odd(i) then
pr:=pr*arr[i];

@rezus42 0 / 0 / 1 Регистрация: 18.09.2011 Сообщений: 56
		1
	Найти произведение элементов с нечетными индексами. 03.12.2011, 10:35. Показов 1288. Ответов 1 Метки нет (Все метки) Помогите с массивоми 1) Дан массив целых чисел. Выяснить является ли р-й элемент массива положительным числом. 2) Задан массив целых чисел. Найти произведение элементов с нечетными индексами. 3) Дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором каждый отрицательный элемент заменить на его абсолютную величину. 0

	03.12.2011, 10:56

Найти произведение элементов с нечетными индексами.

Решение