Безбумажная технология - технология накопления, подготовки и обмена информацией с использованием компьютерной техники и средств связи.
Якось так...... ну я не знаю, чи правильно
begin
var a := ArrRandom(10, 1, 9);
a.Println;
Println('Кол-во чисел, равных max:',
a.FindAll(p -> p = a.Max).Count)
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека