Question

Дан массив с n элементом. Вывести на экран индекс нечетных чисел и их сумму

Answer 1

var

 a:array [1..100] of integer;

 i,sum,n:integer;

begin

 sum:=0;

 readln(n);

 

 for i:=1 to n do

   begin

     a[i]:=random(20)-10;

     write(a[i],' ');

   end;

 writeln;

 for i:=1 to n do

     if abs(a[i]) mod 2 = 1 then  

       begin

         sum:=sum+a[i];

         write(i,',');

       end;

  writeln;

  writeln(sum);

end.