Решите задачу в Паскале Есть строка из произвольного количества слов, которая начинается не с пробела и заканчивается не пробелом, между словами один пробел. Найти и вывести на экран слово минимальной длины(если таких слов несколько, вывести первое по порядку) Пример: Введите строку: asa qwerty u zzz qq Результат: u – слово мин.длины (1 имвол)​

// PascalABC.NET

begin

 ReadString.ToWords.MinBy(p -> Length(p)).Print

end.

ответ:Это самое короткое что я знаю

Объяснение:#include <iostream>

#include <cstring>

using namespace std;

int main() {

   char s[100], *ps = s, ch, mch;

   int mn = 100, n = 0;

   cout << "string? ";

   cin >> s;

   ch = *ps;

   do {

       ++ps;

       ++n;

       if (ch != *ps) {

           if (mn > n) {

               mn = n;

               mch = ch;

           }

           ch = *ps;

           n = 0;

       }

   } while (*ps);

   cout << "result: ";

   for (int c = 0; c < mn; ++c) cout << mch;

   return 0;

}

#include <iostream>

#include <vector>

using namespace std;

// глобальные переменные

const int arraySize = 10;

vector <int> numbers;

// сам алгоритм.

void result(){

   

 // совет - обьявляй все переменные в начале функции  

 int leader = 0;

 

 int maxCount = 0;

 int count = 0;

 

 

 // поиск самого частого числа

 for (int c = 0; c < 9;c++){

     // обнуляем счетчик

     count = 0;

     

     for (int c1 = 0;c1 < arraySize;c1++){

         if (numbers[c1] == c) count++;

     }

     

     // проверка на лидера

     if (maxCount < count){

         leader = c;

         maxCount = count;

     }

 }

 

 

 // ну..с посмотрим:

 cout << "Leader: " << leader << " (" << maxCount << ") " << std::endl;

}

int main()

{

   // подготовка масива

   srand(time(NULL)); // обнулем внутрений таймер для полного рандома

   for (int c = 0; c < arraySize;c++) {

       numbers.push_back(rand() % 9); // заполняем масив числами

   }

   // посмотрим на оригинальный масив

   cout << "Original array: ";

   for (int c = 0;c < arraySize;c++) cout << numbers[c] << " ";

   cout << std::endl;

   // сортировка

   result();

   return 0;

}

Объяснение:

Хорошая книга по с++: Герберт Шилд - с++ базовый курс.