С! запросить с клавиатуры 5 слов, занести их в массив, - вопрос №94065695 от SuperChelovek 16.02.2023 03:52

Question

Информатика: С! запросить с клавиатуры 5 слов, занести их в массив, определить количество в каждом из них знаков, занести в другой массив, напечатать на экране содержимое обоих массивов в табличной форме

SuperChelovek · Answer

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.

С! запросить с клавиатуры 5 слов, занести их в массив, определить количество в каждом из них знаков,