0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 18
1

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

06.06.2014, 01:07. Показов 1338. Ответов 3
Метки нет (Все метки)

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

Дан массив В(10).Найти произведение элементов, не кратных трем
Дан массив В(10). Найти произведение элементов, не кратных трем.

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать массив X(40) из случайных...

Найти сумму всех четных элементов массива, максимальный элемент и его номер, количество элементов, кратных трем
Дан одномерный масив чисел. Найти сумму всех четных элементов массива, максимальный элемент и...

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

3
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
06.06.2014, 01:14 2
Цитата Сообщение от opaopa Посмотреть сообщение
Найти произведение элементов 3.
что?
0
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 18
06.06.2014, 01:24  [ТС] 3
кратных 3-м
0
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
06.06.2014, 01:28 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=-10+random(20);
end;
procedure print(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
function dop(var x:mas;n:integer):integer;
 var i,d:integer;
begin
d:=1;
 for i:=1 to n do
  if x[i] mod 3=0 then
   d:=d*x[i];
  if d=1 then
   d:=0;
 dop:=d;
end;
var a:mas;
    i,n:integer;
begin
 repeat
  write('Ðàçìåð ìàññèâà n=');
   readln(n);
 until n in [1..nmax];
 writeln('Èñõîäíûé ìàññèâ : ');
  invect(a,n);
  print(a,n);
 writeln;
 writeln('Ïðîèçâåäåíèå êðàòíûõ òðåì = ',dop(a,n));
end.
1
06.06.2014, 01:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2014, 01:28
Помогаю со студенческими работами здесь

Найти произведение элементов массива, кратных 3 и 9
1. Используя циклы, создайте Паскаль программу для решения задачи по Вашему варианту. Найти...

Найти произведение четных чисел, кратных трем, из промежутка от (a) до (b)
Найти произведение чисел из промежутка от (a) до (b) для которых выполняется условие : число...

Найти произведение первых k натуральных чисел, кратных трём
решить, используя оператор безусловного перехода и 4 безусловных функции: 1)Break 2)Continue...

Найти произведение чисел, кратных трем вводимых с клавиатуры
Задали три задачи. Две решил, а эта никак не получается:"Найти произведение чисел кратных трем...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru