Помогите, пожалуйста, написать программу алгоритма поисков и сортировки для массива

Question

Помогите, пожалуйста, написать программу алгоритма поисков и сортировки для массива

Comments

к сожалению у меня только сортировка получилась без поиска

---

все равно выложить?

---

Ну давай)

---

тут поиск надо добавить

---

это такой простенький вариант

---

Спасибо, если у тебя поиск не получился, сомневаюсь, что у меня получится ахах

---

думаю у тебя все получится

Answer 1

    const n=10;
    var
      a:array[1..n] of real;
      i:integer;
      k:real;
    begin
      write('введите ',n,' элементов массива:');
      for i:=1 to n do read(a[i]);
        i:=1;
        while i            if a[i + 1]              k:=a[i];
              a[i]:=a[i+1];
              a[i+1]:=k;
                i:=1;
             end
            else i:= i+1;
      write('отсортированный массив:');
      for i:=1 to n do write(a[i]:8:2);
    end.