Developing.ru

Привет форумчане. Помогите с решением задачек пожайлуста.
1)"Дан массив А из 15 натуральных чисел. Заменить все элементы с четными номерами на 0"
2) и вечная проблема с циклом. можно все не решать а только дать основную формулу

"Найти сумму 1/2+1/4+1/6+1/8+...1/20 "

1) Пробуй, если что подправишь. (Писал без компилятора).
[syntax='Pascal']
var
a:array[0..15] of integer;
i:integer;
begin
for I := 0 to 15 do
begin
writeln('a[',i,']: ');
readln(a);
if ( ( a mod 2 ) = 0 ) then
a:=0;
end;
for I := 0 to 15 do
write(a);
readln;
end.
[/syntax]

Спасибо

Эх, оптимизируем!
for i:=1 to 7 do A[2*i]:=0;

По второму
for i:=1 to 10 do sum:=sum+1/(2*i)