Question

1)написать программу, выполнящую поиск такого максимального k, что сумма первых k элементов массива не превосходит заданного числа s.
2)написать программу, подсчитывающую число слов и букв в заданной строке.

Answer 1

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 > 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.