10 баллов моё дело предложить ​

20

Объяснение:

1. Рисуешь круги Эйлера(в данном случае 2 штуки) и называешь каждую окружность(в данном случае это окружность 'Угол'(У) и окружность 'Прямая'(П)

2. Отмечаешь каждую зону буквами(всего 3 зоны(1 - зона, где часть первой окружности(a), 2 - зона, где пересечение двух окружностей(b),  3 - зона, где часть второй окружности(c).

3. Далее мы смотрим таблицу, где видим, что 'Угол' = 60, а на окружности 'Угол' занимает 2 части - a и b, значит a + b = 60.

По тому же принципу расписываем 'Прямую', на окружности это части b и с, значит b + c = 140

4. 'Угол | Прямая', знак | - или, то есть или одна окружность или другая, то есть обе, значит a + b + c = 180

5. Теперь мы подставляем b + c = 140 в a + b + c = 180, получаем a = 40.

6. Теперь подставляем a = 40 в a + b = 60, получаем b = 20.

& - это знак и, то есть место, где пересекаются окружности, в нашем случае это зона b.

Const n=100; var x : array[1..n] of integer;     i,k1,k2 : integer; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =random(41)-20;     write(x[i],' ');         end;   writeln; for i: =1 to n do   begin   if x[i]< 0 then k1: =k1+1;   if x[i]> 0 then k2: =k2+1;   end; writeln('k1=',k1,'   k2=',k2); end.