сервис вопросов и ответовДан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].
10-11 класс|
|
Relax58
10 нояб. 2014 г., 17:50:42 (9 лет назад)
Mika78
10 нояб. 2014 г., 18:45:55 (9 лет назад)
const n = 12;
var
f: boolean;
i, p: integer;
a: array [1..n] of integer;
begin
randomize;
writeln('Исходный массив');
for i := 1 to n do begin
a[i] := Random(21)-10;
write(a[i], ' ');
end;
p := 1;
for i := 1 to n do
if (a[i] >= -2) and (a[i] <= 10) then begin
f := true;
p := p * a[i];
end;
writeln;
write('Произведение = ');
if not f then writeln(0)
else writeln(p);
end.
Ответить
Другие вопросы из категории
Описать процедуру SumDigit(N,S), находящую сумму
цифр S целого числа N (N — входной, S — выходной
параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество
чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.Количество чисел не превышает 100. Введённые числа не превышают 300.Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.
Паскаль
Читайте также
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
Вы находитесь на странице вопроса "Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.