Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. пример: 10 15 5 5 10 15

Program program1; var arr: array[1..3] of real; i, z, h: integer; procedure swap(var x, y: real); var t: real; begin t : = x; x : = y; y : = t end; begin writeln('введите три числа: '); for i : = 1 to 3 do read(arr[i]); for h : = 1 to 3 - 1 do for z : = 1 to 3 - h do if arr[z] > arr[z + 1] then swap(arr[z], arr[z + 1]); for i : = 1 to 3 do write(arr[i], ' '); end.

Constcount = 3; var a  : array [1..count] of integer; i, b, c: integer; begin writeln('введите числа: '); for i : = 1 to count dobeginwrite(i ,': '); readln( a[i] ); end; for i : = 1 to count dofor b : = 1 to count doif a[i] < a[b] thenbeginc : = a[i]; a[i] : = a[b]; a[b] : = c; end; for i : = 1 to count dowrite  (a[i], ' '); end.

5                                                                                         5 2 4 1 3  

100 312 0 312 500

Объяснение:

n участников олимпиады получили уникальные номера от 1 до n. В результате решения задач на олимпиаде каждый участник получил некоторое количество (целое число от 0 до 600). Известно, кто сколько набрал.

Перечислите участников олимпиады в порядке невозрастания набранных ими .

Входные данные

В первой строке содержится число n (0 ≤ n ≤ 101). Далее записаны n чисел - количество набранных участниками (первое число - это , набранные участником номер 1, второе - участником номер 2 и т.д.).

Выходные данные

Вывести n чисел - номера участников в порядке невозрастания набранных ими (участники, набравшие одинаковое количество балов должны выводится в порядке неубывания их номеров).

var s, v, v1: real;

      t1, t2: real;

      b: boolean;

begin

  b: =false;

  repeat

    writeln('введите расстояние между пунктами а и б');

    readln(s);

    if s< 0 then

      begin

        writeln('отрицательное расстояние. повторите ввод');

        continue;

      end;

    writeln('введите среднюю скорость самолета');

    readln(v);

    if v< 0 then 

      begin

        writeln('отрицательная скорость. повторите ввод');

        continue;

      end;

    writeln('введите скорость встречного ветра');

    readln(v1); //если ветра нет нужно ввести 0

    if v1< 0 then

      begin

        writeln('отрицательная скорость. повторите ввод');

        continue;

      end;

    b: =true;

  until b = true;

  if v1> 0

  then

    begin

      t2: =s/v;

      writeln('время полета: ', t2);

    end

  else

    begin

      t1: =(v-v1)/s;

      writeln('время полета: ', t1);

    end;

end.