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

Question

Информатика

Артём

14 сентября, 05:38

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

+2

Ответы (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.