Организация циклов и работа с одномерными массивами

[ldinka135]

Здравствуйте! У меня такая вот проблемка.
Цель работы: Задав одномерный массив целочисленных данных А в одном из заданных форматов (Word), реализовать обработку массива. Длина массива N <= 20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста задачи.
Формат - Word.
Найти произведение элементов массива A={a[i]}, удовлетворяющих условию: с <= a[i] <= d.
Сможете помочь? За ранее Спасибо!

[Namolem]

а в чем проблема?

Если хочешь помочь голодному, не давай ему рыбы, дай ему удочку.

[chesser]

На VBA, что ли, программа?

[ldinka135]

проблема вообще в массивах =)
программа на паскале.
спасибо

[Блуд]

проверяй

 var
 znach:boolean;
 mA:array of word;
 dopMin,DopMax,d,a,i,c,razm:integer;

begin
 writeln('vvedite max znachenie mass');
 readln(DopMax);
  writeln('vvedite min znachenie mass');
 readln(DopMin);
  writeln('vvedite razmer mass');
 readln(razm);
 setlength(mA,razm);

 for i := 0 to razm-1 do
 begin
  repeat
   znach:=true;
    writeln('vvedite znach mass A['+inttostr(i+1)+']');
 readln(ma[i]);
 if (ma[i]>DopMax)or (ma[i]<Dopmin) then
 begin
 znach:=false;
 writeln('ne dopustimie znach,poprobuete vvesti zanogo');
 end;
     until znach;
 end;
 writeln('vvedite C');
 readln(c);
 writeln('vvedite D');
 readln(d);
 for i := 0 to razm - 1 do
   begin
     if (ma[i]>=c)and (ma[i]<=d) then
     A:=A+ma[i];

   end;
   writeln('A='+inttostr(A));
   sleep(10000)
end.