Необходимо написать задачу на языке Паскаль. Решите следующую задачу: В сети магазинов Н-Аудио проводится рекламная

Vechernyaya_Zvezda

17

program MaxCheckSum;

var

  N, i, j, sum: integer;

  prices: array [1..1000] of integer;

begin

  { Ввод количества товаров }

  readln(N);

  

  { Ввод цен на товары }

  for i := 1 to N do

    readln(prices[i]);

  

  { Сортировка цен по убыванию }

  for i := 1 to N-1 do

    for j := 1 to N-i do

      if prices[j] < prices[j+1] then

      begin

        { Обмен значениями }

        sum := prices[j];

        prices[j] := prices[j+1];

        prices[j+1] := sum;

      end;

  

  { Вычисление максимальной суммы }

  sum := 0;

  for i := 1 to N do

  begin

    if (i mod 2) = 1 then

      sum := sum + prices[i];

  end;

  

  { Вывод максимальной суммы }

  writeln(sum);

end.