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

Ответы 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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years