Массив. Выборочное произведение.

[Граф1899]

Помогите решить задачки)
1). Задан массив из N чисел. Найти произведение чисел, находящихся в интервале от 10 до 40.
[*deleted*]
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Народ, помогите. На паскале получается примерно так, но в бейсике другие приколы(((
1).
program sm;
const m=50;
var mas:array[1..m] of integer;
i,s:integer;
begin
s:=0;
for i:=10 to 40 do
s:=s+mas;
writeln('Summ', s);
end.

[*deleted*]

[Naeel Maqsudov]

Код: Выделить всё

print "Введите N:";
input N
dim A(1 to N)
'заполнение
for i=1 to N
  print "Введите A(";i;"):";
  input A(i)
next
'вычисление
P=1
for i=1 to N 
  if A(i)>=10 and A(i)<=40 then P=P*A(i)
next

print "Произведение чисел в интервале от 10 до 40 = "; P

[Граф1899]

Благодарю за помощь) и прошу прощения за мою невнимательность.