Question

5. Массив А размером 10 заполняется с клавиатуры. Верно ли, что произведение элементов массива, оканчивающихся на 5, больше 150?

Answer 1

Var
    a: array[1..10] of integer;
    i, p: integer;
begin
    for i:=1 to 10 do
        readln(a[i]);
    p:=1;
    for i:=1 to 10 do
        if a[i] mod 10 = 5 then
            p := p * a[i];
    if p > 150 then
        writeln('Верно')
    else
        writeln('Не верно');
end.

Answer 2

Checking the Product of Array Elements Ending in 5

To determine if the product of elements in array A ending in 5 is greater than 150, we need to first fill the array A with 10 elements from the keyboard and then calculate the product of the elements ending in 5.

Let's proceed step by step:

1. Filling the Array A with 10 Elements from the Keyboard: - We'll prompt the user to input 10 elements to fill the array A.

2. Calculating the Product of Elements Ending in 5: - After filling the array A, we'll calculate the product of the elements ending in 5.

3. Comparing the Product with 150: - Finally, we'll compare the calculated product with 150 to determine if it's greater.

Let's start with filling the array A with 10 elements from the keyboard.