1. дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина n. отрицательные элементы заменить на n. измененный массив вывести на экран одной строкой. 2. дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых > 10. 3. дан одномерный массив размерностью n, заполненный случайными числами. каждый третий элемент массива возвести в квадрат, если элемент отрицательный. измененный массив вывести на экран.

1)       var  a: array[1..10]of integer;   i,n,k: integer;   begin    readln(n);       for i: =1 to 10 do        begin          read(a[i]);           if a[i]< 0 then          a[i]: =n;         end;         for i: =1 to 10 do          write(a[i],' ');         end.2)var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            if abs(a[i])> 10 then            write(a[i],' ');         end.3)         var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            begin              if i mod 3 = 0 then                if a[i]< 0 then                a[i]: = a[i]*a[i]*a[i];               write(a[i],' ');               end;           end.

перестанови игру!!!!!