Question

Напишите программу, которая заполняет массив из 20 элементов случайными

числами на отрезке [100; 1000] и находит отдельно сумму элементов в первой и во второй половинах массива. На языке "паскаль"

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(20, 100, 1000);

 a.Println;

 a.Batch(10).Select(p -> p.Sum).Println

end.