PDA

Просмотр полной версии : Массив. Выборочное произведение.



Граф1899
19.05.2009, 22:52
Помогите решить задачки)
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*]

Naeel Maqsudov
21.05.2009, 20:00
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
21.05.2009, 23:06
Благодарю за помощь) и прошу прощения за мою невнимательность.