Question

Дан массив найти произведение отрицательных элементов и кратных 7

Answer 1

Program Massiv;

Uses Crt;

const n=10 {размер массива} 

var i,k:integer;

       a:array[1..n] of integer;

begin

     clrscr;

     write('Введите элементы массива:' );

     k:=1  

     for i:=1 to n do

            begin

                 readln (a[i]);

                 if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

            end;

writeln;   

write('Исходный массив:') 

 

for i:=1 to n do   write(a[i]:3);       

 

 writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

 

 readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

Для нахождения произведения отрицательных элементов, кратных 7, вам нужно выполнить следующие шаги в вашем массиве:

1. Создайте переменную для хранения произведения (например, product) и инициализируйте её единицей.
2. Пройдитесь по всем элементам массива.
3. Для каждого элемента массива, проверьте, является ли он отрицательным и кратным 7.
4. Если элемент удовлетворяет обоим условиям, умножьте его на текущее значение product.
5. После завершения цикла, значение product будет содержать произведение всех отрицательных элементов, кратных 7.

Пример на псевдокоде:

pythonCopy code
array = [напишите ваш массив здесь]
product = 1

for элемент in array:
    if элемент < 0 and элемент % 7 == 0:
        product *= элемент

print("Произведение отрицательных элементов, кратных 7:", product)

Замените [напишите ваш массив здесь] на ваш собственный массив чисел. Этот код найдет произведение всех отрицательных элементов, кратных 7, в вашем массиве.