Дана последовательность. Расположить отрицательные элементы последовательности, стоящие на четных местах по убыванию - 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;
   { ... }

Объяснение кода листинга программы

В данном коде реализована последовательность действий, описанных в постановке задачи:

  1. Объявляется массив a, который будет хранить элементы последовательности.
  2. В цикле for с помощью функции readln в массив a записываются значения элементов последовательности.
  3. Затем в цикле for выводятся на экран значения элементов массива a.
  4. Выводится количество элементов массива.
  5. Далее, в зависимости от постановки задачи, может быть реализована сортировка элементов массива по убыванию и выделение отрицательных элементов, стоящих на четных местах.
  6. Выведенные на экран значения элементов массива соответствуют отрицательным числам, стоящим на четных местах по убыванию. Код, представленный в вопросе, не содержит действий, связанных с отрицательными элементами, стоящими на четных местах по убыванию.

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы