Регистрация
creativeIgorek
12.02.2021 05:37
Информатика
Есть ответ 👍

Найти произведение элементов линейного массива целых чисел m(n) удовлетворяющее условию m[i]=2*m[i+1]

188
250
Посмотреть ответы 2

Ответы на вопрос:

LilyBlackk
LilyBlackk
4,6(86 оценок)
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.
olik29
olik29
4,6(98 оценок)
1)джойстик2)? 3)процессор4)принтер5)системный блок6)системный блок7)видеокарта8)enter9)цветной принтер

Популярно: Информатика