Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15

Question

Информатика

Илюня

17 октября, 10:03

Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15

+1

Ответы (1)

Знаете ответ на вопрос?

Лилианка · Answer 1

Var

n, a, k, i:integer;

begin;

k:=1;

readln (n) ;

for i:=1 to n do

begin;

readln (a) ;

if (a>8) and (a<15) then k:=k*a;

end;

writeln (k) ;

end.