Question

ПОМОГИТЕ С ПАСКАЛЕМ!!!!! Запросить с клавиатуры 5 слов, занести их в массив, определить количество в каждом из них знаков, занести в другой массив, напечатать на экране содержимое обоих массивов в табличной форме

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrString(5);

 var b := a.Select(t -> t.Length).ToArray;

 var n := b.Max;

 for var i := 0 to 4 do

   Writeln(a[i]:n, b[i]:3)

end.

Answer 2

Конечно, вот пример программы на Pascal, которая запрашивает 5 слов с клавиатуры, определяет количество знаков в каждом из них, заносит это количество в другой массив и выводит содержимое обоих массивов в табличной форме:

pascalCopy code
program WordLengthCounter;

const
  MaxWords = 5;
  MaxWordLength = 20; // Максимальная длина слова

var
  Words: array[1..MaxWords] of string;
  WordLengths: array[1..MaxWords] of integer;
  i: integer;

begin
  writeln('Введите 5 слов: ');

  // Заполняем массив Words
  for i := 1 to MaxWords do
  begin
    write('Слово ', i, ': ');
    readln(Words[i]);
  end;

  // Определяем количество знаков в каждом слове и заносим в массив WordLengths
  for i := 1 to MaxWords do
  begin
    WordLengths[i] := length(Words[i]);
  end;

  // Выводим таблицу
  writeln('-------------------------------------');
  writeln('|  Слово  |  Количество знаков  |');
  writeln('-------------------------------------');

  for i := 1 to MaxWords do
  begin
    writeln('|  ', Words[i]:10, '  |  ', WordLengths[i]:19, '  |');
  end;

  writeln('-------------------------------------');
end.

Этот код создает два массива: массив Words для хранения введенных слов и массив WordLengths для хранения количества символов в каждом слове. Затем он выводит оба массива в табличной форме.