найти номера нечетных элементов , стоящих на четных местах массива

[voytik]

найти номера нечетных элементов , стоящих на четных местах массива в консоли

[type_Oleg]

if Odd(a[i*2]) then WriteLn('Ура ! Нашли - номер ',2*i);

[voytik]

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array of integer;
    n,i,k:integer;
begin
 randomize;
 write('n=');
 readln(n);
 setlength(a,n);
 for i:=0 to n-1 do
  begin
   a[i]:=1+random(50);
   write(a[i]:4);
  end;
 writeln;
 writeln('Nomera nechetnych na cetnych mestah');
 k:=0;
 for i:=0 to n-1 do
 //индексы с 0, поэтому берем четные индексы
 if(i mod 2<>0)and(a[i] mod 2<>0)then
 begin
  write(i+1:4);//выводим индекс+1
  k:=1;
 end;
if k=0 then write('Takih elementov net');
readln
end.

вот как вариант, но этот код выводит цифры подходящих под описания чисел, то есть из массива 2 3 5 7 она скажет, что всего 2 подходящих числа на местах имеется (это 3 и 7), а не 2 и 5, ибо именно на них стоят 3 и 7...

[Stilet]

 writeln('Nomera nechetnych na cetnych mestah');
 k:=0;
 i:=0; While i<n do begin
  if Odd(a[i]) then begin
    write(i:4);
    k:=1;
  end; inc(i,2);
 end;
if k=0 then write('Takih elementov net');

Идет?

[Serge_Bliznykov]

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

вот как вариант, но этот код выводит цифры подходящих под описания чисел, то есть из массива 2 3 5 7 она скажет, что всего 2 подходящих числа на местах имеется (это 3 и 7), а не 2 и 5, ибо именно на них стоят 3 и 7...

Вы что-то путаете. Программа работает абсолютно корректно!

n=7
  33  33  16  33  45  35   5
Nomera nechetnych na cetnych mestah
   2   4   6

[voytik]

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

Вы что-то путаете. Программа работает абсолютно корректно!

угу... тупил по жестокому