Вывести все содержащиеся в массиве A(N) нечетные числа и их количество K ( Делфи 7 )

[nadyaH]

Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.

[Vanta11a]

Ну и в чем проблема?
Побежали по массиву, если число нечетное - вывели, счетчик увеличили на 1.
массив кончился - вывели значение счетчика.

for i:=o to N dо
if a1[i] mod 2 = 0 then
...

[nadyaH]

if a[i] mod 2 = 0 then

в этой строке выдаёт ошибку

[Vanta11a]

А код целиком показать?

[nadyaH]

показывай.Я не могу сообразить.

function Neth(a: TArray; N: integer): string;  
var
  i: integer;
  r:string;
begin
for i:=0 to N do
r:= a[i] mod 2;
if r = 0 then    {ошибка?}
 result:=r+a[i];
end;

[Serge_Bliznykov]

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

if a[i] mod 2 = 0 then

ну и учтите, что остаток от деления на равен нулю у ЧЁТНЫХ чисел.

нечётные числа можно определить либо так:

if a[i] mod 2 = 1 then...

или (лучше) так:

if odd(a[i]) then...

p.s. А с тем, что код программы нужно показывать целиком я согласен.

[Luuzuk]

r:string;
....
r:= a[i] mod 2;

[Serge_Bliznykov]

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

показывай.Я не могу сообразить.

function Neth(a: TArray; N: integer): string;  
var
  i: integer;
  r:string;
begin
for i:=0 to N do
r:= a[i] mod 2;
if r = 0 then    {ошибка?}
 result:=r+a[i];
end;

Надя, Вы написали функцию, которая возвращает СТРОКУ (т.е. == текст == набор символов).
Я даже предположить боюсь, что Вы хотите таким кодом получить?!

Рискну предположить, Вы хотите получить строку, в которой перечислены ВСЕ нечётные числа?!!

хотели написать так?

function Neth(a: TArray; N: integer): string;  
var
  i: integer;
begin
  result := '';
  for i:=0 to N do
      if (a[i] mod 2)=1 then result := result  + IntToStr(a[i])+',';
end;

[nadyaH]

Serge_Bliznykov
Вы правильно предположили,но у меня не удаётся это сделать.

[Serge_Bliznykov]

посмотрите мой пост выше, я привёл код, как это можно сделать.

p.s. ещё можно в этой же функции сразу и количество нечётных чисел в массиве подсчитать (используйте параметер с var, через который можно вернуть результат K)