Задачи Паскаль.

[Анна йцу]

№1
С клавиатуры вводятся N целых чисел. Найти кол-во введенных чисел, значения которых принадлежат отрезку [-3,21].

№2
Дано натуральное число N. Найти сумму 2/5+4/17+6/37+8/65+9/82...

№3
С клавиатуры вводятся N целых чисел. Найти среднее арифметическое тех из них, которые кратны 3

[Кольша]

1:

for i:=0 to N do
begin
readln(Number);
if (number>=-3) and (number<=21)then//number in[-3..21]
inc(count);//count:=count+1;
end;

[Mad_Cat]

//2)
for i:=1 to n do
s:=s+2*i/(4*i*i+1);

//3)
for i:=1 to n do
begin
readln(a); if a mod 3=0 then inc(s,a);
end;

[Serge_Bliznykov]

Сообщение от Mad_Cat

//2)

for i:=1 to n do
s:=s+2*i/(4*i*i+1);

Mad_Cat, а поясните, как ваша формула найдёт значение выделенного члена последовательности?!

Дано натуральное число N. Найти сумму 2/5+4/17+6/37+8/65+9/82...

и, кстати, каковы следующие члены последовательности?!

[Mad_Cat]

уупс а слона то я и не приметил)
этот член выбивается из общей картинки, там по идее должно быть 10/101, если судить по предыдущим членам, либо это переход на нечетные тогда следующий 11/122 потом 13/170 и т.д.(хотя, опять-таки, кто знает сколько их там должно быть и не будет ли снова перехода на четные)
остается ждать ТС и его обьяснений по этому поводу(хотя вряд ли они[обьяснения] будут)