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.