profile
Опубликовано 6 лет назад по предмету Информатика от Krusnik02

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

  1. Ответ
    Ответ дан Puz1koO

    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.

Самые новые вопросы