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

Все таки есть сомнение нужна сумма нечетных элементов массива или сумма элементов массива с нечетными индексами? В данной прграмме подсчитывается сумма нечетных элементов массива Если же нужно второе то строку отмеченную {*} следует заменить на 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.