Массив

[Alexsssandr]

Дан одномерный массив из 15 элементов. Переставить в обратном порядке элементы, расположенные между k -м и s -м элементами (т. е. с ( k + 1)-го по ( s -1)-й). Значения k и s вводятся с клавиатуры, k < s .

const n=15;
var a:array[1..n] of integer; i,j,k,s,buf,c:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:3);
end;
writeln;
c:=0;
k:=0;
s:=n+1;
j:=((s+k) div 2);
for i:=k+1 to j do
begin
buf:=a[i];
a[i]:=a[s-c-1];
a[s-c-1]:=buf;
inc(c);
end;
for i:=1 to n do write(a[i]:3);
writeln;
readln;
end.

Но я не могу изменить программу чтоб работало верно при вводе k и s с клавиатуры.....

[edmynt]

Вот на мой взгяд самы аптимальный вариант

program proga;
uses crt;
const n=15;
var
   a:array[1..n] of integer;
   i,k,s,buf,buf2,j:integer;
begin
     randomize;
     for i:=1 to n do
         begin
              a[i]:=random(10);
              write(a[i]:3);
         end;
     writeln;
     writeln ('Enter nambers elements');
     readln(k,s);
     if (k<1)or(k>s)or(s>n) then
        begin
             writeln('No valid nambers');
             readkey;
             exit;
        end;
       j:=k;
     for i:=s-1 downto k+1 do
         begin
              inc(j);
            if i<=j then
               begin
               break;
               end;
            buf:=a[i];
            buf2:=a[j];
            a[i]:=buf2;
            a[j]:=buf;

         end;
         writeln;
         for i:=1 to n do
             begin
             write (a[i]:3);
             end;
         readkey;
end.