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

Alesha55535 Alesha55535    2   14.07.2019 20:30    0

Ответы
Пупырка108974891 Пупырка108974891  25.08.2020 08:26
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика