Определите количество членов а i Pascal

[забулдыга]

помогите сделать
Пусть даны натуральные числа n, а1 , а2 , ..., а n . Определите количество членов а i последовательности а1 , а2 , ..., а n :
а) являющихся нечетными числами;

[Unique_Maks]

то есть мы задаем последовательность натуральных чисел, а затем определяем количество нечетных?

[забулдыга]

ну получается так)

[Arigato]

Как-то так:

var
  n, a, i, c: Integer;

begin
  ReadLn(n);
  c := 0;
  for i := 1 to n do begin
    ReadLn(a);
    Inc(c, a and 1);
  end; {for}
  WriteLn(c);
end.

[забулдыга]

чета не работает

[Poma][a]

чета не работает

Не правда Ваша..
Контр пример?

[забулдыга]

да я в этом вообще ничего не соображаю.мне нужно просто на учебе отчитаться.эту вбил в компилятор и тот хрень какую то выдает

[Poma][a]

Скрин? (10 букоф)

[Arigato]

Сообщение от забулдыга

да я в этом вообще ничего не соображаю.мне нужно просто на учебе отчитаться.

Документы в отделе кадров можно забрать.

[забулдыга]

я конечно благодарю за то что это выложил.
парни мне диплом нужен для продвижения по работе.поэтому я не заморачиваюсь. программирование на паскаль на моей работе меня никак не касается просто.