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

Question

Помогите решить задачу:

Дан массив целых чисел Х, состоящий из 10 введенных с клавиатуры элементов.

- Найти сумму элементов, имеющих нечетное значение;
- вывести те элементы,значение которых больше 15

Answer 1

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

Answer 2

Тут опиши переменные, создай массив, заполни его. Дальше:


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.