Напишите программы в pascalabc: 1). заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его с алгоритма быстрой сортировки. 2). заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его по убыванию с алгоритма быстрой сортировки.

1)
#include <iostream>
#include <string>
#include <windows.h>
using namespace std;

int main()
{
  setlocale (LC_ALL,"Rus");
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  cout <<"Введите строку: " <<endl;
  string str;
  getline (cin,str);
  for (int i = 0; i<=str.size()-1; i++)
  {
   if (str.at(i) == 'а')
    str.at(i) = 'А';
   else if (str.at(i) == 'б')
    str.at(i) = 'Б';
  }
  cout <<endl;
  cout <<"Результат: " <<endl;
  cout <<str <<endl;
  return 0;
}

2)
#include <iostream>
#include <string>
using namespace std;

int main()
{
  setlocale (LC_ALL,"Rus");
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  cout <<"Введите строку: " <<endl;
  string str;
  getline (cin,str);
  bool f = true;
  for (int i = 0; i<=(str.size()-1)/2; i++)
  {
   if (str.at(i)!=str.at(str.size()-1-i))
   {
    f = false;
    break;
   }
  }
  cout <<"Результат: " <<endl;
  if (f)
   cout <<"палиндром" <<endl;
  else cout <<"не палиндром" <<endl;
  return 0;
}

1) В земной коре вещества под давлением в сжатом состоянии - минимальное количество места при определенном количестве вещества - порядок
началось извержение вулкана - хаос - вещество выходит на поверхность Земли беспорядочно: газы, пепел, магма во время взрывов и толчков выходят неравномерно
2) Серебряная ложка - вещество серебро в порядке
Серебряная ложка в воде - происходит перемещение молекул серебра в воду - молекулы серебра в воде находятся уже в состоянии хаоса
3) Ночь - пчелы в улье спят - порядок.
Утро - пчелы в поисках медоносных растений разлетаются беспорядочно - хаос