Дана последовательность. Расположить отрицательные элементы последовательности, стоящие на четных местах по убыванию - Free Pascal
Формулировка задачи:
Дана последовательность а1, а2, ... ,а20. Расположить отрицательные элементы последовательности, стоящие на четных местах по убыванию.
Помогите пожалуйста
Решение задачи: «Дана последовательность. Расположить отрицательные элементы последовательности, стоящие на четных местах по убыванию»
textual
Листинг программы
const n = 10; var a : array[1 .. n] of integer; i, j, T, prev : Integer; begin for i := 1 to n do begin write('a[', i:2, '] = '); readln(a[i]); end; { дальше - без изменений: } for i := 1 to n do write(a[i]:4); writeln; { ... }
Объяснение кода листинга программы
В данном коде реализована последовательность действий, описанных в постановке задачи:
- Объявляется массив a, который будет хранить элементы последовательности.
- В цикле for с помощью функции readln в массив a записываются значения элементов последовательности.
- Затем в цикле for выводятся на экран значения элементов массива a.
- Выводится количество элементов массива.
- Далее, в зависимости от постановки задачи, может быть реализована сортировка элементов массива по убыванию и выделение отрицательных элементов, стоящих на четных местах.
- Выведенные на экран значения элементов массива соответствуют отрицательным числам, стоящим на четных местах по убыванию. Код, представленный в вопросе, не содержит действий, связанных с отрицательными элементами, стоящими на четных местах по убыванию.