Сформировать массив из 20 положительных чисел. Найти сумму первых 10 членов и максимальное значение среди оставшихся элементов.

===PascalABC.NET===

program ;

var

 arr :array [1..20] of integer;

 summ, max :integer;

begin

 randomize();

 for var i := 1 to 20 do

   arr[i] := random(20);

 Write('Исходный массив: ');

 for var i := 1 to 20 do

   Write(arr[i], ' ');

 for var i := 1 to 10 do

   summ += arr[i];

 WriteLn();

 Write('Сумма первых 10 членов: ', summ);

 for var i := 11 to 20 do

   if max < arr[i] then

     max := arr[i];

 WriteLn();

 Write('Максимальное значение из оставшихся членов: ', max);

end.

Также прикрепляю файл с программой во вложения.