program arraySum;

var
arr: array$$\mathrm{1..20}$$ of integer;
i, sumMoreThan9, sumEven: integer;

begin
sumMoreThan9 := 0;
sumEven := 0;

// Генерируем случайные числа от -15 до 15 и заполняем массив
Randomize;
for i := 1 to 20 do
begin
arr$$i$$ := Random$31$ - 15; // Генерируем числа от -15 до 15
writeln$i{,}^{\prime }{:}^{\prime },arr[i]$;

// Считаем сумму элементов больше 9
if arr$$i$$ > 9 then
sumMoreThan9 := sumMoreThan9 + arr$$i$$;
// Считаем сумму четных элементов
if arr$$i$$ mod 2 = 0 then
sumEven := sumEven + arr$$i$$;

end;

writeln${}^{\prime }Суммаэлементовбольше9{:}^{\prime },sumMoreThan9$;
writeln${}^{\prime }Суммачетныхэлементов{:}^{\prime },sumEven$;
end.