Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15
Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы