Question

Дан массив из N элементов определить количество элементов имеющие четные порядковые номера и являющихся нечетными числами

Answer 1

const w=10000;
var
i,n,sum:integer;
a:array[1..w] of integer;
begin
writeln('Введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (a[i] mod 2<>0) and (i mod 2 = 0) then 
inc (sum);
end;
writeln(sum);
end.