Дан массив целых чисел из 10 элементов. Заполните клавиатуру. найти: а) сумму элементов,имеющих нечетное значение б)

+ 0 -

Natusyrusy

09 нояб. 2015 г., 19:39:16 (8 лет назад)

Всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?

В данной прграмме подсчитывается сумма  нечётных элементов массива

Если же нужно второе то строку отмеченную {*} следует заменить на

if (i mod 2)>0 then s:=s+a[i];   

Program massiv;

Uses Crt;

var a:array[1..10] of integer;

       i,sum,ch:integer;

 begin

     clrscr;      

     write('Введите число:' );

     readln(ch);

     write('Введите элементы массива:');

     sum:=0; 

     for i:=1 to 10 do

           begin 

               readln(a[i]);

               if (a[i] mod 2)>0 then s:=s+a[i];        {*}

           end;

     writeln; write('Исходный массив: ');

for i:=1 to 10 do

      begin  

            write(a[i]);

            write('  ' ); 

    end;  

  writeln; writeln;  

  write('Сумма нечётных элементов массива: ',sum)

  writeln; writeln;   

  write('Номера элементов которые больше числа ',ch,' : ' );

for i:=1 to 10 do

      if (a[i]>ch) then  

             begin  

                 write(i:2); 

                 write('  ' ); 

           end;

  writeln; writeln;

  write('Положительные числа которые кратны числу ',ch,' : ' );  

for i:=1 to 10 do

      if (a[i]>0) and (a[i] mod ch=0)  then  

             begin  

                 write(a[i]); 

                 write('  ' ); 

           end;

     readkey;  

end.