Меньшее из частейших (TurboPascal)

[VladKB1]

Сообщение от Poma][a

Ну тогда используйте while и потом проверяйте по i или оставьте for, но заведите булевскую переменную

Тоесть мы не должны искать слова в строке и заносить их в массив, а сразу искать слова и находить нужное?

Так?

var
 s,minS: string;
 a: array [1..253] of longint;
 i,j,k,l,t: longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 readln(s);
 s:=s+' ';
 i:=1;
 minS:='';
 while i <= length(s) do
 begin
  if s[i] = ' ' then
  begin
   {что тут надо? как проверять по i? Я не понел :( }

   minS:='';
  end
  else minS:=mins+s[i];
 end;
 writeln(minS);
end.

[Poma][a]

Массив должен быть структур

[Аватар]

Более симпатичным и познавательным будет однонаправленный список вместо массива с одновременной сортировкой его по убыванию количества вхождений и алфавитному возрастанию слов при добавлении нового слова или изменении счетчика вхождений. По концу результат в начале списка

[Poma][a]

Хе-хе) Новый учебный план от пана Автара : "Не знаешь процедуры? Учи списки!"

[Аватар]

Дык если не для галочки нужно все вместе и одновременно - процедуры, массивы, списки, стеки и пошло-поехало. А зачем кота за эти самые тянуть? И чем оно отличается друг от друга - те же for, begin, end и весь прочий не большой джентльменский набор

[Poma][a]

Дык может сначала конкретно наиграть со строками, массивами, а уже потом плясать с динамикой и иже с ней?

[Аватар]

Не устраивает мой, пусть по твоему плану тренируется, мне без разницы

[Poma][a]

И чем оно отличается друг от друга - те же for, begin, end и весь прочий не большой джентльменский набор

Хе, и главное не поспоришь)

Не устраивает мой, пусть по твоему плану тренируется, мне без разницы

Да не, я ж только за! Списки дело хорошее..
Ток к ТС свой план.. и называется он "Книжечка"..

[VladKB1]

Сообщение от Poma][a

Массив должен быть структур

Массив структур? ? Или я тупой или или...
А моё решение вообще не как не дополнить/исправить ?

[VladKB1]

Ну дак что там?