Составьте программу, которая формирует массив из 15 случайных чисел вдиапазоне от 15 до - 15 и:

1) отрицательные числа заменяет наих модули, а неотрицательные возводит в квадрат

2) четные числа заменяет на 2, а от нечетных - отнимает 5

3) числа, кратные 6 уменьшает в 2 раза, а у остальных элементов находит целое от деления на 5

4) меняет местами значения третьего и 11 элементов

На экран вывести исходный и преобразованный массив с поясняющим текстом

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

i:integer;

begin

for i:=1 to 15 do begin a[i]:=random (31) - 15; write (a[i]:4) ; end;

writeln;

for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr (a[i]) else a[i]:=abs (a[i]) ;

for i:=1 to 15 do write (a[i]:4) ;

end.

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

i:integer;

begin

for i:=1 to 15 do begin a[i]:=random (31) - 15; write (a[i]:3) ; end;

writeln;

for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5;

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

end.

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

i:integer;

begin

for i:=1 to 15 do begin a[i]:=random (31) - 15; write (a[i]:3) ; end;

writeln;

for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5;

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

end.

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

i, k:integer;

begin

for i:=1 to 15 do begin a[i]:=random (31) - 15; write (a[i]:3) ; end;

writeln;

k:=a[3];

a[3]:=a[11];

a[11]:=k;

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

end.