сервис вопросов и ответовнайти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]
5-9 класс|
|
Enotic1985
26 янв. 2014 г., 10:46:58 (10 лет назад)
имсчяыв
26 янв. 2014 г., 12:07:28 (10 лет назад)
program qq;
uses crt;
var pr, i, n: integer; a:array[1..32] of integer;
begin
randomize;
writeln ('Введите количество элементов в массиве:');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)+1;
write (a[i], ' '); //Распечатаем массив для наглядности
end;
pr:=1; //Обнулить переменную мы не можем, ибо у нас произведение. Единица же, как начальный множитель нашего произведения, его "обнулит", но качественно ни на что далее не повлияет
for i:=1 to n do
if a[i]=2*a[i+1] then pr:=pr*a[i]; //Если выполняется условие, то умножаем уже полученное произведение на элемент массива
writeln;
writeln (pr); //выводим произведение на экран
end.
Nastia6
26 янв. 2014 г., 13:03:16 (10 лет назад)
Ввод чисел осуществляется с клавиатуры или же массив заполняется генератором случайных чисел?
Ответить
Другие вопросы из категории
Провести сложение, вычитание, умножение и деление двоичных чисел 1010₂ и 10₂
только с решение))буду благодарна
Читайте также
Школьный уровень 1.Найти все элементы массива b(n),большие или равные 0.На экран вывести номер элементо
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
1) Удвоить все элементы массива. 2)Найти сумму элементов двух массивов одинаковой размерности. 4) Найти Минимальные элементы массива и
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
Паскаль. массивы
В линейном массиве целых чисел b(40) заменить первые 10 элементов по формуле: b[i]=b[i]*3
ПОМОГИТЕ!!!удалить элемент линейного массива вещественных чисел, которые меньше среднего арифметического элемента массива.если таких элементов несколько ,
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
Вы находитесь на странице вопроса "найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.