Question

Дан массив из слов A(m). Найти все слова с длиной, не превышающей заданной. Паскаль.

Answer 1

var

 a: array of string[30];

 i, flag, m: integer;

begin

 write('Кол-во слов: ');

 readln(m);

 writeln;

 setlength(a, m);

 for i := 0 to m - 1 do

   readln(a[i]);

 writeln;

 write('Максимальное кол-во символов: ');

 readln(flag);

 writeln;

 for i := 0 to m - 1 do

   if length(a[i]) <= flag then

     writeln(a[i])

end.

Answer 2

Для решения данной задачи нахождения всех слов с длиной, не превышающей заданную, в массиве слов A(m), можно использовать следующий алгоритм на языке Паскаль:

1. Создайте переменную `maxLength`, которая будет хранить заданную максимальную длину слова. 2. Создайте пустой массив `result`, который будет хранить найденные слова. 3. Пройдитесь по каждому слову `word` в массиве `A`: - Если длина `word` не превышает `maxLength`, добавьте `word` в массив `result`. 4. Верните массив `result` с найденными словами.

Вот пример кода на языке Паскаль, реализующий описанный алгоритм:

procedure FindWordsWithMaxLength(A: array of string; maxLength: Integer; var result: array of string);
var
  i, j: Integer;
begin
  j := 0;
  for i := 0 to Length(A) - 1 do
  begin
    if Length(A[i]) <= maxLength then
    begin
      result[j] := A[i];
      Inc(j);
    end;
  end;
end;

Вы можете вызвать эту процедуру, передав массив `A`, заданную максимальную длину `maxLength` и пустой массив `result`. После выполнения процедуры, массив `result` будет содержать все слова с длиной, не превышающей заданную.

Примечание: В данном ответе использованы сниппеты из поисковых результатов, предоставленных You.com.