Ответ:

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

i:integer;

begin

randomize;

For i:=1 to 10 do a[i]:=Random(30);

For i:=1 to 10 do write(a[i],' ');

writeln;

i:=a[1];

a[1]:=a[10];

a[10]:=i;

For i:=1 to 10 do write(a[i],' ');

readln;

end.

Объяснение: