Информатика, вопрос задал leisanchk , 2 года назад

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

Ответы на вопрос

Ответил Rendix25

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.

leisanchk: я как в задании написала

leisanchk: ничего не меняла

Rendix25: Ну тогда просто уберите равно в операторе if

leisanchk: можно вопрос? не объясните что такое n:=n-1?

leisanchk: пожалуйста)

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

leisanchk: спасибо)

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

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

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