[i]Program Task8;
[i]Const
[i]n=10;
[i]Var
[i]a : Array [1..n] of Integer;
[i]i,tmp : Integer;
[i]Begin
[i]Writeln ('Введите элементы масиива A[',n,']');
[i]For i:=1 to n do
[i]begin
[i]Write('a[',i,']=');
[i]Readln(a[i]);
[i]end;
[i]Writeln('Сформирован массив A[',n,']:');
[i]For i:=1 to n do
[i]Write(a[i]:8);
[i]Writeln;
[i]tmp:=a[1];
[i]a[1]:=a[n];
[i]a[n]:=tmp;
[i]Writeln('После замены первого и последнего элемента местами массив A[',n,'] имеет вид:');
[i]For i:=1 to n do
[i]Write(a[i]:8);
[i]Readln;
[i]End.