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

@Artem158 · Регистрация: 26.04.2010

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

Задан одномерный массив вещественных чисел. Составить программу для вычисления величин, указанных в вариантах заданий. Провести вычисление для массива чисел ( 0,1; -27,3; 35,7; -71,4; 0; 12;-5;-7,3; 0,5; 14) Вывести значение элементов с парными номерами и вычислить их произведение

Добавлено через 3 минуты
ну парные - 2, 12, 14 например здесь.....с них высеслить их произведение

@Arustarh Dark · 26.04.2010, 17:41

А поконкретнее можно, что подразумевать под словом "парные".
Ибо 12 и 14 я в массиве вижу, а вот 2 - не вижу...

@Artem158 · 26.04.2010, 17:46 **[ТС]**

ой...не 2, а 4

@Arustarh Dark · 26.04.2010, 17:50

Так все-таки, что такое "парные"?

@Artem158 · 26.04.2010, 17:58 **[ТС]**

Arustarh Dark, это те числа которые деляться на 2 без очтачи
например 2 4 6 8 10 12 14 16 18 20 и т.д

@Arustarh Dark · 26.04.2010, 18:24

Короче я ничего не понял, вот 2 варианта:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Const
  data:array [1..10] of real = (0.1, -27.3, 35.7, -71.4, 0, 12,-5,-7.3, 0.5, 14);
var
  i:integer;
  s:integer;
  f:real;
begin
  //Это если надо подсчитать произведение четных чисел
  s:=1;
  for i:=1 to 10 do
    if ((Trunc(data[i])=data[i])) AND (Trunc(Data[i]) mod 2 = 0) then
      s:=s*Trunc(data[i]);
  WriteLn(s);
  //Это если нао подсчитать произведениче чисел с четными номерами
  f:=1;
  for i:=1 to 10 do
    if i mod 2 = 0 then
      f:=f*data[i];
  WriteLn(f:5:3);
  ReadLn;
end.

@Artem158 · 26.04.2010, 19:44 **[ТС]**

большое спасибо!!!!
а // это надо обезательно?

Добавлено через 4 минуты
мм..но мне над цифри записывать не в проге, а в конце в Ctrl+F9

Добавлено через 10 минут
Arustarh Dark, мм...а почему резльтат
1
1
1
такой????

@Arustarh Dark · 27.04.2010, 04:07

Почему у тебя 3 цифры - не знаю, должно быть 2
1 - произведение четных чисел
2 - произведение чисел стоящих на четных позициях

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Artem158 0 / 0 / 0 Регистрация: 26.04.2010 Сообщений: 8

	Вывести значение элементов с парными номерами и вычислить их произведение 26.04.2010, 17:34. Показов 1019. Ответов 7 Метки нет (Все метки) Задан одномерный массив вещественных чисел. Составить программу для вычисления величин, указанных в вариантах заданий. Провести вычисление для массива чисел ( 0,1; -27,3; 35,7; -71,4; 0; 12;-5;-7,3; 0,5; 14) Вывести значение элементов с парными номерами и вычислить их произведение Добавлено через 3 минуты ну парные - 2, 12, 14 например здесь.....с них высеслить их произведение 0

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	26.04.2010, 17:41
	А поконкретнее можно, что подразумевать под словом "парные". Ибо 12 и 14 я в массиве вижу, а вот 2 - не вижу... 0

@Artem158 0 / 0 / 0 Регистрация: 26.04.2010 Сообщений: 8
	26.04.2010, 17:46 [ТС]
	ой...не 2, а 4 0

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	26.04.2010, 17:50
	Так все-таки, что такое "парные"? 1

@Artem158 0 / 0 / 0 Регистрация: 26.04.2010 Сообщений: 8
	26.04.2010, 17:58 [ТС]
	Arustarh Dark, это те числа которые деляться на 2 без очтачи например 2 4 6 8 10 12 14 16 18 20 и т.д 0

@Artem158 0 / 0 / 0 Регистрация: 26.04.2010 Сообщений: 8
	26.04.2010, 19:44 [ТС]
	большое спасибо!!!! а // это надо обезательно? Добавлено через 4 минуты мм..но мне над цифри записывать не в проге, а в конце в Ctrl+F9 Добавлено через 10 минут Arustarh Dark, мм...а почему резльтат 1 1 1 такой???? 0

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	27.04.2010, 04:07
	Почему у тебя 3 цифры - не знаю, должно быть 2 1 - произведение четных чисел 2 - произведение чисел стоящих на четных позициях 0