Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 04.07.2013
Сообщений: 10
1

Подсчитать произведение положительных элементов массива, кратных 3, стоящих на нечетных местах

04.07.2013, 19:12. Просмотров 1700. Ответов 1
Метки нет (Все метки)


3. В одномерном числовом массиве размерности n подсчитать произведение положительных элементов, кратных 3, стоящих на нечетных местах
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.07.2013, 19:12
Ответы с готовыми решениями:

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

Найти произведение элементов одномерного массива, стоящих на местах, кратных 4
Для одномерного массива целых чисел AB, содержащий 10 элементов, определить: 13) произведение...

Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А,В) и стоящих на нечетных местах
Тема: "Обработка элементов линейных массивов". Помогите народ, буду благодарен!!!

Вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах
Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы, вычислить сумму...

__________________
Помогаю в написании студенческих работ здесь.
1
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
05.07.2013, 04:42 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
 
var
  i, n: word;
  sum: integer;
  m: array [1..30] of smallint;
 
begin
  sum := 1;
  write('Размерность массива (<=30): ');
  readln(n);
  writeln('Массив:');
  randomize;
  for i := 1 to n do
  begin
    m[i] := round(random(30) - 15);
    write(m[i], ' ');
    if (i mod 2 <> 0) and (m[i] > 0) and (m[i] mod 3 = 0) then sum := sum * m[i]
  end;
  writeln;
  writeln('Произведение положительных элементов, кратных 3, стоящих на нечетных местах = ', sum);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2013, 04:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Подсчитать сумму квадратов элементов массива, стоящих на нечетных местах.
Дан массив из 10 целых чисел. Подсчитать сумму квадратов элементов, стоящих на нечетных местах.

Подсчитать кол-во положительных элементов массива Z, стоящих на чётных местах
Дан вектор Z . Пользователь вводит максимальное значение N, которое не должно превышать 11. Нужно...

Найти произведение элементов массива, стоящих на нечетных местах, и вывести положительные элементы массива.
Задать массив генератором случайных чисел в диапазоне.Найти произведение элементов массива,стоящих...

Дан массив b[15], найти произведение чисел, кратных 3, стоящих на нечетных местах
2) Дан массив b, найти произведение чисел, кратных 3, стоящих на нечетных местах


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.