Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Dlas
0 / 0 / 0
Регистрация: 18.02.2013
Сообщений: 8
1

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

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

Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2013, 22:47
Ответы с готовыми решениями:

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

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

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

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

найти произведение элементов значение которых не превышает значение элемента главной диагонали данного столбца
ребят помогите!к понедельнику надо сделать задачу или блок-схему!(( Условие: ...

1
Germanant
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 975
Завершенные тесты: 2
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2013, 23:36

Найти произведение элементов массива с четными номерами, значение которых превышают 1
В одномерном массиве ,состоящем из n вещественных элементов ,вычислить:...

Дан одномерный массив. Найти сумму элементов, значения которых не превышают 20
Люди, помогите пожалуйста решить. срочно. 1)Дан одномерный массив. Все его...

В матрице А[7,8] найти произведение элементов, значение которых меньше последнего элемента матрицы.
Помогите решить задачу! В матрице А найти произведение элементов, значение...


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

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

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