Надо! в нашем доме 32 семей. 11 семей выписывают газеты, 8 семей — журналы. лишь 6 семей и журналы, и газеты. сколько семей не выписывают ничего?

7семей ничего не выписывают

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var   a: array of integer;   i, n, min, max, imax, imin: integer; begin   write('число элементов в массиве '); readln(n);   setlength(a, n);   min : = maxint; max : = -maxint;   for i : = 0 to n - 1 do   begin       a[i] : = random(101) - 50;       if a[i] > max then begin           max : = a[i]; imax : = i;       end;       if a[i] < min then begin           min : = a[i]; imin : = i;       end;       write(a[i]: 4);   end;   writeln;   writeln('min = ',min,'  max = ',max);   //меняем местами max и min и выводим массив   swap(a[imax], a[imin]);   for i : = 0 to n - 1 do write(a[i]: 4); end. тестовое решение: число элементов в массиве 10   -19 -14 -44  -3  -4 -46  -1 -39  13  32 min = -46  max = 32   -19 -14 -44  -3  -4  32  -1 -39  13 -46