1) Все положительные элементы массива А увеличить на 0,4, нулевые заменить на 0,5,…

1 задани это снимок 2 (спасидо дяде) Обра тное число (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными. VAR x: array[1… 100] of real; n,i,c: integer; BEGIN write ('n='); readln (n); for i: =1 to n do begin write ('x[', i, ']='); readln (x[ i ]); end; c: =0; for i: =1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c: =c+1; writeln ('c=',c); readln; END.3 for i: =1 to n-1 for j: =i+1 do if a; a: =a[j]; a[j]: =b end4 не знаю