сервис вопросов и ответовдан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5
10-11 класс|
|
Vadimka3761
21 янв. 2014 г., 8:23:34 (10 лет назад)
YourFunnyHoney
21 янв. 2014 г., 10:22:22 (10 лет назад)
a:array[1..10000] of integer;
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.
Ответить
Другие вопросы из категории
Помогите ПОЖАЛУЙСТА полный ответ с решнием несложно
Сколько в 4096 МБайт = ? ТБайт
помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. Смоделировать работу автомата по продаже
билетов. Пусть населенные пункты обозначены номерами 1, 2, 3, 4, 5, 6, 7, 8. Стоимость одного билета к конкретному пункту определена так:
22,k=1
35,k=2,3
50,k=4
72,k=5,6
97 во всех остальных случаях.
Сколько будут стоить m билетов к некоторому населенному пункту? Для решения задачи используйте алгоритмическую конструкцию "выбор" (case).
program z5;
var
r, m, n, s:integer;
begin
writeln('r=', r);
readln(r);
writeln('m=', m);
readln(m);
case r of
1:n:=22;
2,3:n:=35;
4:n:=50;
5,6:n:=72;
else n:=97;
end;
s:=m*n;
writeln('s=', s);
end.
На множестве {1; 3; 5; 7} изобразите
граф отношения:
1) «меньше»; 2) «меньше или равно»; 3) «больше».
Читайте также
Дан массив X(N).Найти среднее арифметическое элементов массива,значения которых заключены в интервале [-3;3]. Если эта величина больше
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
дан массив целых чисел,состоящий из 30 элементов опишите на русском языке или одним из языков программирования,алгоритм нахождения количеств элемента
массива,значение которых больше среднего арифметического всех его элементов
ан массив х(n).элементы массива,значения которых не принадлежат интервалу[A,B], разделить на 100 и подсчитать кол-во таких элементов. значения всех
остальных элементов возвести а квадрат.
помогите написать программы в паскале
Вы находитесь на странице вопроса "дан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.