Помогите пожалуйста) Ввести с клавиатуры N чисел. Найти произведение тех из них, которые принадлежат интервалу (-2;2). В Паскале.
Var n,pr,a:integer; begin readln (n); pr:=1; repeat read(a); if (a>=-2) and (a<=2) then pr:=pr*a;<br> n:=n-1; until n=0; write (pr); end.
я как в задании написала
ничего не меняла
Ну тогда просто уберите равно в операторе if
можно вопрос? не объясните что такое n:=n-1?
пожалуйста)
Перед циклом вы вводите с клавиатуры количество чисел и в цикле от этого количества n отнимается 1 при каждом проходе, и когда значение n станет равно 0, то цикл перестанет работать
спасибо)
извини, тупой вопрос но все же, а если эта задача на массив, то она также решается?
На массив лучше вводить через for, но да, решение такое же
Хотя нет, тогда не нужен n:=n-1, он просто служит границей для цикла for