===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.
Также прикрепляю файл с программой во вложения.
