#include <iostream>using namespace std;void selectionSort(double arr[], int size1, int size) { //size раз for (int i = size; i < size1; i++) { //ищем минимальный элемент среди [i; size - 1] int minPos = i; for (int j = i + 1; j < size1; j++) if (arr[j] > arr[minPos]) minPos = j; //ставим минимальный элемент на i-е место swap(arr[minPos], arr[i]); }}int main() { int size; scanf("%d", &size); double arr[1000]; for(int i = 0; i < size; i++){ scanf("%lf", &arr[i]); } selectionSort(arr, size, 0); int size1 = 21; double arr1[22]; for(int i = size; i < size1; i++){ scanf("%lf", &arr1[i]); } selectionSort(arr1, size1, size); swap(arr1[size1], arr1[10]); double res[2000]; for (int i = 0; i < size; i++){ res[i] = arr[i]; } for (int i = size; i < size1; i++){ res[i] = arr1[i]; } for (int i = 0; i < size1; i++){ printf("%lf ", res[i]); }}
52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
.Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
.OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
Writeln('Чаще других встречается цепочка "',c,'"')
end.
<u>Пример</u>
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"
<u>Замечание:</u> ограничение на длину строки увеличено до 2 млн. символов.