:1) бульдог | доберман | уход 2)бульдог | доберман | уход | питомник 3) доберман | бульдог 4) (доберман | бульдог) & уход представьте результаты этих запросовграфически с кругов эйлера.

решение в приложенном файле.

Const   n = 20; var   a: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i] : = random(19999) - 9999;       write(a[i]: 6);   end;   writeln;   i : = 1;   flag : = false;   repeat       flag : = (sign(a[i]) = sign(a[i + 1]));       i : = i + 1   until flag or (i > n);   if flag then writeln('есть пара соседних элементов с одним знаком')   else writeln('нет пар соседних элементов с одним знаком') end. тестовое решение: элементы массива   2440 -2414 -3192 -6912 -8537  7364  2869 -2505  8875  2662    401  7398  2213  8804  2039  1485  4213  8359 -2410 -5844 есть пара соседних элементов с одним знаком

Var k,m: integer; dat: array[1..10]of integer; // объявление массива begin dat[1]: =45;       //заполнение массива dat[2]: =55;       //заполнение массива dat[3]: =40;       //заполнение массива dat[4]: =15;       //заполнение массива dat[5]: =20;       //заполнение массива dat[6]: =80;       //заполнение массива dat[7]: =35;       //заполнение массива dat[8]: =70;       //заполнение массива dat[9]: =10;       //заполнение массива dat[10]: =45;     //заполнение массива m: = dat[1];     //m присваивается значение первого элемента массива for k: =2 to 10 do begin     //цикл выполняющийся 8 раз (с2 до 10)  if dat[k] < dat[1] then     //сравниваются значения первого и k-ого элемента массива begin  //если условие выполняется, то складывается значение первого элемента и k-ого m: = m+ dat[k] end end; write(m); end. эта программа складывает значения тех элементов массива, которые меньше первого элемента данного массива и сам этот первый элемент.