Найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]
Найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы