С! запросить с клавиатуры 5 слов, занести их - вопрос №59406969 от milankae 05.03.2021 00:48

Question

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

milankae · 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 слов, занести их в массив, определить количество в каждом из них знаков,