Составьте программу, которая...

Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива такимобразом, что производится перестановка 6 и 16 элементов массива

 

program z1;

var

a:array [1..20] of integer;

b,i:integer;

begin
b:=0;
for i:= 1 to 20 do

a:=random(30)-15;

for i:= 1 to 20 do

write(a);

writeln;
b:=a[6];
a[6]:=a[16];
a[16]:=b;
write(a);

end.