Developing.ru

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

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

[code]
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

[/code]

Помогите решить задачки)
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[i];
writeln('Summ', s);
end.

[*deleted*]