5. Массив А размером 10 заполняется с клавиатуры. Верно ли, что произведение элементов...

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.