Напишите программу, которая выполняет реверс части массива, начиная с элемента с номером K и заканчивая элементом с номером M(включительно).

Var
  i,k,m,j:integer;
  a,b:array[1..10]of integer;
begin
writeln(Исходный массив:);
for i:=1 to 10 do
  begin
  a[i]:=random(50);
  write(a[i]:3);
  end;
writeln;
write(Введите k и m: );
readln(k,m);
j:=m;
for i:=k to m do
  begin
  b[j]:=a[i];
  j:=j-1;
  end;
for i:=k to m do  a[i]:=b[i];
writeln(Измененный массив:);
for i:=1 to 10 do  write(a[i]:3);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.