Помогите пожалуйста) Ввести с клавиатуры N чисел. Найти произведение тех из них, которые принадлежат интервалу (-2;2). В Паскале.

Перед циклом вы вводите с клавиатуры количество чисел и в цикле от этого количества n отнимается 1 при каждом проходе, и когда значение n станет равно 0, то цикл перестанет работать

спасибо)

извини, тупой вопрос но все же, а если эта задача на массив, то она также решается?

На массив лучше вводить через for, но да, решение такое же

Хотя нет, тогда не нужен n:=n-1, он просто служит границей для цикла for

var n,pr,a:integer;begin   readln (n);   pr:=1;   repeat      read(a);      if (a>=-2) and (a<=2) then pr:=pr*a;      n:=n-1;   until n=0;   write (pr);end.