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

@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, со знаком или без него)

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

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

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

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

Решение