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.