Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Последовательно вводят 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.