Составьте программу, которая заполняет массив из 10 элементов случайными целыми числами в диапазоне от 1 до 10, а затем меняет последний и первый элемент местами и выыодит на экран исходный и полученный массив.

Program mass;

Uses Crt;

Var

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

i, c, b: byte;

Begin

ClrScr;

For i : = 1 to 10 do

begin

a[i]: = random (10) ;

writeln (a[i]) ;

end;

writeln;

b:=a[1];

c:=a[10];

a[1]:=c;

a[10]:=b;

For i : = 1 to 10 do

writeln (a[i]) ;

end.