ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Я пропустила тему. Дан одномерный массив А…

Если c и d задаются, как и элементы массива, то решение вот такоеНаписано в Pascal.ABC: Const N=10; var i,c,d,k: integer; A: array [1… N] of integer; Begin k: =1; writeln ('Введите c: '); readln (c); writeln ('Введите d: '); readln (d); writeln ('Введите элементы массива: '); for i: =1 to N do read (A[i]); for i: =1 to N do write (A[i], '); for i: =1 to N do begin if (c <= A[i]) and (d >=A[i]) then k: =k*A[i]; end; writeln ('Произведение: ', k); End.