Произведение элементов массива

[gamer123]

А как можно решить вот это?
Найти произведение элементов массива A={a[i]}, удовлетворяющих условию: с <= a[i] <= d. Тип данных Word.

[puporev]

Создать массив, например a[i]:=random(40);
Ввести значения c,d, например c=5, d=25.
write('c=');readln(c);
write('c=');readln(c);
Потом в цикле перемножить все числа>=c и <=d.

[gamer123]

а не могли бы Вы показать полностью исходник? пожалуйста, а то сейчас наделаю ошибок, яне очень хорошо разбираюсь в этом. а в готовом правильном коде быстро разберусь и всё пойму.

[puporev]

Ты хоть язык укажи, на чем писать.

[gamer123]

извиняюсь... на паскале

[puporev]

program massiv;
uses crt;
var a:array[1..100]of word;
    n,c,d,i:word;
    P:longint;
begin
clrscr;
write('n=');readln(n);
writeln('massiv:');
for i:=1 to n do
   begin
     a[i]:=random(10)+1;
     write(a[i],' ');
   end;
   writeln;
writeln('vvedite 2 chisla 1<=c<d<=n');
write('c=');readln(c);
write('d=');readln(d);
P:=1;
for i:=c to d do
P:=P*a[i];
write('proizvedenie = ',P);
readln
end.