В программе используется одномерный целочисленный массив a с индексами
от 0 до 9. Значения элементов равны 10; 15; 35; 35; 0; 5; 70; 100; 71; -1
соответственно, т.е. a[0] = 10, a[1] = 15 и т.д. При каком наименьшем целом
значении переменной k после выполнения следующего фрагмента этой
программы значение целочисленной переменной s окажется положительным?

s := 0;
for i := 0 to 9 do
if (a[i] mod 2 = 0)
and (a[i] > k) then
s := s - a[i]
else
s := s + a[i];