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

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5

26.02.2013, 22:47. Показов 1196. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2013, 22:47
Ответы с готовыми решениями:

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5
Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех элементов массива...

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3
Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера...

Массив одномерный. Найти среднее арифметическое положительных элементов массива, значение которых больше K
1) Массив размером N заполнен случайными числами.Найти среднее арифметическое положительных...

Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем
Дан одномерный массив N(14), найдите произведение положительных элементов массива,стоящих на...

1
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
26.02.2013, 23:36 2
Лучший ответ Сообщение было отмечено Dlas как решение

Решение

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
40
41
42
43
44
45
program Project1;
uses
  Crt;
  const n=10;
Var X:array [1..n] of integer;
    El:array[1..3] of integer;
    Fk:integer;
procedure InitM;
var i:integer;
begin
 Randomize;
 for i:=1 to n do
  begin
   X[i]:=random(10)+1;
   Write(x[i]:4);
  end;
  writeln;
end;
function Pow:integer;
var i,P:integer;
begin
p:=1;
for i:=1 to 3 do
 p:=p*El[i];
 pow:=p;
end;
var i,a,b:integer;
begin
Fk:=1;
readln(a);readln(b);
InitM;
for i:=1 to n do
 begin
  if fk=4 then break;
  if (((x[i]>=a)and(x[i]<=b)) and((x[i] mod 3 =0 )or(x[i] mod 5 =0 )))
  then
   begin
    El[Fk]:=x[i];
    inc(fk);
   end;
 end;
if fk=4 then
writeln(pow);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2013, 23:36
Помогаю со студенческими работами здесь

Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале
Пожалуйста помогите!)) (Паскаль) Дан одномерный массив AN. Найдите количество и сумму элементов,...

Двумерный массив. Найти произведение тех элементов, которые кратны заданному
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

Найти произведение тех элементов массива, значения которых заключены в интервале [A; B] и кратны 3 или 5
Нужна блок-схема и программа Дан массив X(N).найти произведение тех элементов массива, значения...

Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем
Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем.


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

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

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