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

@Evan Rabbit · Регистрация: 30.09.2015

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

В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50), найти
Произведение нечетных элементов;

@Сержант · 11.11.2015, 03:18

С нечетными элементы массива:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=10;
 
var x:array [1..n] of integer;
    i,pr:integer;
 
Begin
Pr:=1;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    // Находим произведение нечетных элементов...
    if Odd(X[i]) then Pr:=Pr*X[i];
    end;
Writeln;
 
Writeln('Ответ: ',Pr);
end.

С элементами массивами находящимися на нечетных местах массива:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=10;
 
var x:array [1..n] of integer;
    pr:longint;
    i:integer;
 
Begin
Pr:=1;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    // Находим произведение нечетных элементов...
    if Odd(i) then Pr:=Pr*X[i];
    end;
Writeln;
 
Writeln('Ответ: ',Pr);
end.

@volvo · 11.11.2015, 10:41

.NET 4+

Pascal
1
2
3
4
5
6
7
uses System.Numerics, arrays;
 
begin
  var x := CreateRandomIntegerArray(10, -50, 50);
  x.Writeln(' ');
  writeln('Ответ: ', x.Where(v -> Odd(v)).Select(v -> new BigInteger(v)).Aggregate((x, y) -> x * y));
end.

Предыдущий код неверен. Если будут все 10 нечетных значений - результат в Integer может не поместиться (граничный случай - все 10 по модулю равны 49, результат должен быть равен 79792266297612001, со знаком или без него)

Новые блоги и статьи Все статьи Все блоги /
Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .

@Evan Rabbit 1 / 1 / 1 Регистрация: 30.09.2015 Сообщений: 16

	Найти произведение нечетных элементов массива 10.11.2015, 18:39. Показов 4894. Ответов 2 Метки нет (Все метки) В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50), найти Произведение нечетных элементов; 0

Опции темы

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

Решение