найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]
5-9 класс
|
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.
Ввод чисел осуществляется с клавиатуры или же массив заполняется генератором случайных чисел?
Другие вопросы из категории
только с решение))буду благодарна
Читайте также
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
В линейном массиве целых чисел b(40) заменить первые 10 элементов по формуле: b[i]=b[i]*3
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.