Замените отрицательные элементы массива на положительные.

в условии было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать .

   

program masiv;

uses crt;

const n=15; {у нас массив будет 15 элементов и целочисленный}

 

                        {если размер и тип другие поменяй значение n и тип} 

  var a: array[1..n] of integer;

        i: integer;

begin

      clrscr;  

      write('введите элементы массива: ');  

      for i: =1 to n do readln(a[i]);

   

 

      writeln;

      write('исходный массив: ') 

 

        for i: =1 to n do write(a[i]: 3);

   

  for i: =1 to n do 

      if (a[i]< 0) then a[i]: =abs(a[i]);

      writeln;

      write('обработанный массив: ') 

        for i: =1 to n do write(a[i]: 3);

        readkey;

end.

 

 

 

 

 

 

 

 

 

 

   

Var a: string; i,k: integer; begin     readln(a);         for i: =1 to length(a) do             if a[i]=': 'then                 begin                     a[i]: ='; ';                   k: =k+1;                 end; writeln(k); end.

((x ∈ a)→(x ∈ p))∧((x∈q)→ ¬(x ∈ a)) (a→p)∧(q→¬a) преобразование импликации: (¬a∨p)∧(¬q∨¬a)  ⇔ ⇔  ¬a  ∧  ¬q ∨  ¬q ∧  p ∨  ¬a ∨ ¬a ∧  p  ⇔ ⇔  ¬a  ∧  (¬q ∨  p ∨  1) ∨  ¬q ∧  p  ⇔ ⇔  ¬a  ∨  ¬q  ∧   p.  выражение ¬a  ∨  ¬q  ∧  p должно быть равно 1 ¬q ∧ p будет  равно 1 если  x ∈ {2, 4, 8, 10, 14, 16, 20}¬а будет равно 1 при любом значении кроме ¬q ∧ p отсюда, максимальное количество в множестве а будет включать в себя все элементы множества ¬q ∧ p, их 7 ответ: 7