Найти количество членов последовательности, имеющих чётные порядковые номера и являющихся нечётными числами - Pascal ABC

Формулировка задачи:

Даны натуральные числа n, a1,..., an. Определить количество членов ak последовательности a1,..., an: имеющих чётные порядковые номера и являющихся нечётными числами. Добавлено через 6 часов 31 минуту Ребята, помогите сделать эту задачу.

Код к задаче: «Найти количество членов последовательности, имеющих чётные порядковые номера и являющихся нечётными числами - Pascal ABC»

textual
var
  a: array[1..100] of integer;
  n, k, i: integer;
 
begin
  randomize;
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
    a[i] := random(n);
    write(a[i]:4);
    if (odd(a[i])) and not (odd(i)) then
      inc(k);
  end;
  writeln;
  writeln(k);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ