Найти сумму элементов массива, имеющих нечетное значение

var
  a: array[1..10] of integer;
  i, A: byte;
 
begin
  readln(A); s:=0;
  for i:=1 to 10 do begin
    if (a[i] div 2 <> 0) then s:=s+a[i];
    if (a[i] > A) then write(i, ' ');
  end;
  writeln(s);
end.

const n = 10;
 
var
  a: array[1..n] of integer;
  i, j, s, A: integer;
 
begin
  readln(A); j:=1; s:=0;
  for i:=1 to n do begin
    readln(a[i]);
    if (a[i] div 2 <> 0) then s:=s+a[i];
    if (a[i] > A) then begin index[j]:=i; inc(j); end;
  end;
  writeln(s);
  for i:=1 to length(index) do
    write(index[i], ' ');
end.

  const n = 10; { объявление константы }
  readln(a[i]); { считывается i-ый элемент массива a }
 
  { 1)найти сумму элементов имеющих нечетное значение. }
  if (a[i] div 2 <> 0) then { условие проверяющее на нечетность i-ого элемента. Кстати, здесь я ошибся — вместо div надо написать mod }
     s:=s+a[i]; { к переменной s суммируется i-ый нечетный элемент }
 
  { 2)вывести индексы элементов значения которых > наперед заданного числа A. }
  if (a[i] > A) then begin index[j]:=i; inc(j); end; { условие проверяющее неравенство. Если i-ый элемент больше A, то происходит присваивание этого элемента j-му элементу массива index, где будут находиться все индексы чисел больших A }
  end;
 
  { общий вывод }
  writeln(s);
  for i:=1 to length(index) do
    write(index[i], ' ');
end.

const n = 10;
 
var
    a, indx: array[1..n] of integer;
    i, j, s, B: integer;
             
begin
    readln(B); j:=1; s:=0;
    for i:=1 to n do begin
        readln(a[i]);
        if (a[i] div 2 <> 0) then s:=s+a[i];
        if (a[i] > B) then begin indx[j]:=i; inc(j); end;
    end;
    writeln(s);
    for i:=1 to length(indx) do
        write(indx[i], ' ');
end.

const n = 10;
 
var
    a, indx: array[1..n] of integer;
    i, j, s, B: integer;
             
begin
    readln(B); j:=1; s:=0;
    for i:=1 to n do begin
        readln(a[i]);
        if (a[i] mod 2 <> 0) then s:=s+a[i];
        if (a[i] > B) then begin indx[j]:=i; inc(j); end;
    end;
    writeln(s);
    for i:=1 to length(indx) do
        write(indx[i], ' ');
end.

const n=10;
var a,indx:array[1..n] of integer;
i, j, s,B:integer;        
begin
Write('Число А=');
Readln(B); 
Writeln('Введите элементы массива:');
j:=1; 
for i:=1 to n do
begin
Write('a[',i,']=');
Readln(a[i]);
if odd(a[i]) then s:=s+a[i];
if a[i]>B then
begin 
indx[j]:=i; 
inc(j); 
end;
end;
Writeln('Сумма нечетных элементов:',s);
Writeln('Индексы элементов,значения которых больше числа А.');
for i:=1 to j-1 do
Write(indx[i], ' ');
end.