Отсортировать последовательность в порядке убывания и найти элементы - PascalABC.NET
Формулировка задачи:
Даны натуральные числа n, a1......an где n<=5000. Отсортировать последовательность a1.....an в порядке убывания, найти элементы ak последовательности, имеющие чётные порядковые номера и являющиеся нечетными числами, и определить их количество.
Надо делать через массив, отсортировал по убыванию, а дальше что делать не знаю.
Сортировать надо методом пузырька.
Решение задачи: «Отсортировать последовательность в порядке убывания и найти элементы»
textual
Листинг программы
k:=5;
for k:=2 to n do
if k mod 2=0 then
Writeln('Количество элементов с четными номерами=',a[k]);
end.