Помогите с программой в Паскале: определить количество членов последовательности а1,а2

[kairr]

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

Var A,i,k:integer;
Begin
Write('Введите количество членов последовательности: ');
ReadLn(i);;
Write('Введите саму последовательность: ');
k:=0;
For i:= 1 to i do
    Begin
    Read(A);
    if (i mod 2 = 0)and(A mod 2 = 0) then k:=k+1;
    End;
WriteLn('k = ',k);
End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

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

и являющимися членами числами.

T9, опечатка?
имелось в виду:
"и являющимися чётными числами."

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

Помогите с программой в Паскале

чем помочь? Программа написана, выглядит рабочей и корректной.
Что не так?

p.s. трюк с вводом числа элементов в переменную i и потом цикл "For i:= 1 to i do"
будет работать в известных мне компиляторах Паскаля, но, честно говоря,
я бы никогда не стал так писать. Вам что, жалко ещё одной переменной типа Integer,
куда можно прочитать количество элементов последовательности?

[kairr]

имелось в виду:
"и являющимися чётными числами." -да,опечатка
пишет: ошибка выполнения 106 ????

[kairr]

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

T9, опечатка?
имелось в виду:
"и являющимися чётными числами."



чем помочь? Программа написана, выглядит рабочей и корректной.
Что не так?

p.s. трюк с вводом числа элементов в переменную i и потом цикл "For i:= 1 to i do"
будет работать в известных мне компиляторах Паскаля, но, честно говоря,
я бы никогда не стал так писать. Вам что, жалко ещё одной переменной типа Integer,
куда можно прочитать количество элементов последовательности?

не покажете как бы вы сделали ?)

[Serge_Bliznykov]

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

пишет: ошибка выполнения 106 ????

какой у Вас компилятор Паскаля?
Программа запускается?
Вопросы "Введите количество членов последовательности" и "Введите саму последовательность" выдаёт?
и что Вы вводите в ответ на вопросы?

у меня ваш код отработал нормально!

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

не покажете как бы вы сделали ?)

Var A,i,k, n : integer;
....
   Write('Введите количество членов последовательности: ');
   ReadLn(n);
......
  For i:= 1 to n do

[kairr]

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

какой у Вас компилятор Паскаля?

B

BorLand ,7.0

[kairr]

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

какой у Вас компилятор Паскаля?
Программа запускается?
Вопросы "Введите количество членов последовательности" и "Введите саму последовательность" выдаёт?
и что Вы вводите в ответ на вопросы?

у меня ваш код отработал нормально!

Var A,i,k, n : integer;
....
   Write('Введите количество членов последовательности: ');
   ReadLn(n);
......
  For i:= 1 to n do

и что Вы вводите в ответ на вопросы? а что именно надо ,может я тут что-то недопоняла ?

[Аватар]

Небось не число при вводе

[kairr]

Сообщение от Аватар

Небось не число при вводе

число.
проблема в проверке диапазона ,пишет

[Serge_Bliznykov]

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

BorLand 7

Delphi 7?

так добавьте директиву, указывающую, что это КОНСОЛЬНЫЙ (без форм и окошек) проект:

program Project1;

{$APPTYPE CONSOLE}

Var A,i,k, n : integer;