Заполните массив случайными числами и выполните реверс для части массива между элементами с индексами K и M (включая эти элементы).

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

i, m, k, p:integer;

begin

for i:=1 to 10 do begin

a[i]:=random (-10,10);

write (a[i]:3);

end;

writeln;

read (k, m);

for i:=k to (k+m) div 2 do begin

p:=a[i];

a[i]:=a[k+m-i];

a[k+m-i]:=p;

end;

for i:=1 to 10 do

write (a[i]:3);

end.