Ипишіть із поданих речень слова пасивної лексики і зазначте, до якої групи вони належать (діалектизми, архаїзми, історизми, неологізми) На голові Кайдашихи був високий очіпок. Івана Дідуха запам’ятали в селі ґаздою. І стежив я, і я веснів: Акордились планети. Рученьки білі лягли на рамена мені. Сонце малює по нім маленькі фосфоричні звізди. Для кіномейкера немає нічого кращого, ніж створити крутий фільм. Сивий оселедець розсипався козакові перед очима. Придорожнє зілля і бадилля гойдалося, вихолітувалося на всі боки. На твоїх ланітах палає рум’янець. Нарешті мені купили класний спінер.

діалектизми:ґаздою   вихолітувалося

архаїзми:Рамена  Ланітах

історизми: очіпок  Оселедець  Гайдуків

неологізми:Акордились  Кіномейкера Фосфоричні  спінер

Разъясню
1. ИЛИ ложно, когда оба высказывания ложны. Т.е. 0 ИЛИ 0 = 0, в остальных случаях - истина. Значит, НЕ(х>87) И НЕ НЕ(х кратное 9)
В первом случае знак можно поменять: (х<=87), убрав при этом НЕ. Двойное отрицание убираем без последствий: (х кратно 9).
Наибольшее число, которое меньше или равно 87 И делится на 9 без остатка = 81.
2. 64 = 2^6
16 = 2^4
1 = 2^0
В двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля.
Запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8)
6 5 4 3 2 1 0
1 0 1 0 0 0 1
под разрядами пишем 1 там, где у нас была степень 2.
Это двоичная запись числа. В ней 4 нуля.
ответ: 4

Const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln;
  Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Writeln('Вводите через пробел элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln('Частное: ',sp/abs(sn))
end.