Найди Ключевые слова по теме и, используя их, составь предложения.
1
2
3
4
5
A
A
II
P
С
З
В
III
E
В
Дн
ТБ
Cй
Я
и
D
Л
K
о
Ц
1. А2, А3, В2, A5, B2, B5, C4, А1, D4, C3, С2.
2. В1, А1, C5, D1, D3, B5.
3. А4, D1, А1, С1, B4.
4. D5, D3, B5.
5. В4, C3, A5, A1, С1, B5.
Составь похожее задание.​

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
   int n,k;
   cout<<"n = ";  cin>>n;
   int a[n],b[n];
   srand(time(NULL));
// запись в массив
   for (int i=0; i<n; i++) { 
       a[i]=15-rand()%30; cout<<a[i]<<" "; 
   }    
   cout<<endl;
//  сортировка массива по убыванию
   for (int i=0; i<n-1; i++)
   for (int j=i+1; j<n; j++)
       if (a[j]>a[i]) swap(a[i],a[j]);
// поиск первого отрицательного
   k=0;
   while (a[k]>=0) k++;
// запись положительных по убыванию
   for (int i=0; i<k; i++) b[i]=a[i];
//  запись отрицательных по возрастанию
   for (int i=k; i<n; i++) b[i]=a[n-i+k-1];
// вывод массива b
   for (int i=0; i<n; i++) cout<<b[i]<<" ";
   cout<<endl;
   system("pause");
   return 0;
}

n = 15
 -6 -9 -7 12 7 7 -6 6 11 -4 1 10 9 -8 -1 
12 11 10 9 7 7 6 1 -9 -8 -7 -6 -6 -4 -1 

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('foos.txt');
  var i:=a.Select(l->l.Length).ToArray.IndexMax;
  a[i]:='*'*a[i].Length;
  WriteAllLines('foos1.txt',a);
  ReadAllText('foos1.txt').Println
end.

Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.

Пример
Написать программу в паскале, определяющую самую

символы этой строки на звёздочки.

Входной файл дан во вложении.