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.