Если a>=0 то отрезок ЛЕЖИТ в I четверти
Получение-раскодирование-просмотр
Ответ: см.картинку
Условие бесконечного цикла изначально или true (while) или false (repeat).
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.