1)написать программку, выполнящую поиск такового максимального k, что сумма первых k

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

1)

begin

 var s := ReadInteger;

 var a := ArrRandom; a.Println;

 for var i := 0 to a.Length do

   if a.Take(i + 1).Sum gt; s then  

   begin

     i.Println;  

     exit;  

   end;

   10.Println;

end.

2)

begin

 var s := ReadlnString;

 Println(s.ToWords.Count,'слов(-о, -а) в строке.');

 Println(s.Split(' ').JoinIntoString('').Count,'букв(-а, -ы) в строке.');

end.