четные и нечетные (delphi 7)

[STIFLER32]

Привет всем! Помогите пожалуйста с решением задач на делфи и если можно объясните вкратце, буду очень признателен!

1. Дана числовая последовательность. Найти количество чисел, имеющих четные порядковые номера и являющиеся нечетными.

2. Дано действительное число a, натуральное число n. Вычислить:
a(a+1)...(a+n+1).

[Chudo4258]

1

k:=0;
for i:=1 to n do
 if (i mod 2<>0) and (a[i] mod 2 =0) then inc(k)

2

P:=a;
for i:=1 to n+1 do
 P:=P*(a+1);

[Anatole]

Chudo4258 вторая задача неточно. Нужно:

P:=a;
for i:=0 to n do
 P:=P*(a+1+i);

[STIFLER32]

Что касается 1. Результат выводится единица... Можете показать полный код программы или сказать где у меня ошибка.

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[0..999] of integer;
  k: integer; 
  n: integer;
  i: integer; 
begin
n:=Memo1.lines.Count;
k:=0;
for i:=1 to n do
 if (i mod 2<>0) and (a[i] mod 2 =0) then inc(k);
ShowMessage(IntToStr(k));
end;
end.

[ОДИНОЧЕСТВО В СЕТИ]

а где у вас в коде идет присвоение значений элементам массива ?

[Alex Cones]

А почему все забыли про такую замечательную функцию, как odd?

If Odd(I) Then ... Else

[Chudo4258]

А как работает функция Odd(i), и что является ее результатом?

[ОДИНОЧЕСТВО В СЕТИ]

 function odd( X: LongInt ): Boolean;

Функция определяет четность аргумента X. Возвращает True, если Х представляет собой нечетное значение и False, если четное.

[Chudo4258]

procedure TForm1.Button1Click(Sender: TObject);
var st, stt: string;
    k,i:integer;
    A: array[1..3000] of integer;
begin
k:=0;
InputQuery('Количество элементов в массиве','',st);
for i:=1 to StrToInt(St) do
 begin
  InputQuery('Значение '+IntToStr(i)+' элемента','',stt);
  A[i]:=StrToInt(stt);
  if (odd(i) and not(odd(a[i]))) then inc(k);
 end;
ShowMessage(IntToStr(k));
end;

Посмотрите, функцию odd, правильно применил, или наоборот надо?