Сделать рекурсию

@Lina30 · Регистрация: 10.12.2016

Author24 — интернет-сервис помощи студентам

Помогите исправить код.

Pascal

procedure Find(k: integer);
var
L,R,i,j: integer;
w,x: integer;
begin
  L:=1; R:=N;
  while L<R-1 do
  begin
    x:=a[k];
    i:=L;
    j:=R;
    REPEAT
      while a[i]<x do
        i:=i+1;
      while x<a[j] do
        j:=j-1;
      if i<=j then
      begin
        w:=a[i];
        a[i]:=a[j];
        a[j]:=w;
        i:=i+1;
        j:=j-1;
      end;
    UNTIL i>j;
    if j<k then
      L:=i;
    if k<i then
      R:=j;
  end;
end;

@Puporev · 11.12.2017, 08:58

Что должна делать эта процедура? Напишите полное и точное условие задачи.

@Lina30 · 11.12.2017, 17:45 **[ТС]**

Дан массив целых чисел, найти k-тый элемент, например третий минимальный.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2017, 08:58	2
	Что должна делать эта процедура? Напишите полное и точное условие задачи. 0

@Lina30 0 / 0 / 0 Регистрация: 10.12.2016 Сообщений: 7
	11.12.2017, 17:45 [ТС]	3
	Дан массив целых чисел, найти k-тый элемент, например третий минимальный. 0

Опции темы