Помогите решить задачу:Дан массив целых чисел Х, состоящий из 10 введенных с клавиатуры элементов.- Найти сумму элементов, имеющих нечетное значение;- вывести те элементы,значение которых больше 15 

Тут опиши переменные, создай массив, заполни его. Дальше: Summa := 0; for counter = 1 To 10 Do   if (Massive[counter] mod 2 <> 0) then       Summa := Summa + 1;                  //Сумма нечетных   if (Massive[counter] > 15) then write(Massive[counter]   ,  ',')  //Все те, что б                                                                                                    //ольше 15        Writeln(Summa); Readln() End.

Готово.....................