Помогите создать программу

[type_Oleg]

Сообщение от Лешка картошка

В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными индексами.
Нужно составить программу, помогите пожалуйста

Фактически получается надо составить программу, которая среди чисел 1,2,3,4,5 посчитает количество нечетных чисел.
Так что ли?

[Smogg]

Сообщение от Лешка картошка

если у меня совсем хромает грамотность, то прошу прощения)

Не, не принимайте на свой счет) Это просто меня иногда заклинивает. Без всякого повода.

[Лешка картошка]

Нужно посчитать число нечетных элементов массива

[Stilet]

uses crt;
var a:array[1..5] of integer;
i:integer;
k:integer;

begin
clrscr;
for i:=1 to 5 do begin if (a[i] mod 2)=0 then inc(k);
writeln(k);

end.

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

[type_Oleg]

Может лучше так

uses crt;
var a:array[1..5] of integer;
 i,k:integer;
begin
 clrscr;
 k:=0;
 for i:=1 to 5 do if (a[i] mod 2)<>0 then inc(k);  // НЕчетные
 writeln(k);
end.

А кстати, что за Pascal ? Может там функция Odd есть?