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

madina319 madina319    1   08.10.2019 04:01    0

Ответы
nik1716 nik1716  05.08.2020 07:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика