Написать программу организующую сортировку выбора. процедуру использовать только для сортировки!

Const n = 10; type arr=array[1..n] of byte; procedure sort(var a: arr); var i, j, max, imax: integer; begin j : = n; while j > 1 do begin     max : = a[1];     imax : = 1;     for i : = 2 to j do         if a[i] > max then begin             max : = a[i];             imax : = i         end;     a[imax] : = a[j];     a[j] : = max;     j : = j - 1   end; end; var a: arr; i: byte;   begin randomize; writeln('исходный массив: '); for i : = 1 to n do    begin   a[i] : = random(256);   write(a[i]: 4)   end; writeln; sort(a); writeln('отсортированный массив: '); for i : = 1 to n do write(a[i]: 4); writeln; end. пример: исходный массив:   119 239 156 143   34 184   93   19 218 120 отсортированный массив:   19   34   93 119 120 143 156 184 218 239

Procedure sort(arr : array of integer); var   i, j, temp, len, min : integer; begin   len : = length(arr);   for j : = 0 to len - 2 do   begin     min : = j;         for i : = j + 1 to len - 1 do       if arr[i] < arr[min] then         min : = i;     if min > j then     begin       temp : = arr[j];       arr[j] : = arr[min];       arr[min] : = temp;     end;   end; end; const   n = 10; // количество элементов массива   max = 100; // максимальное число в массиве var   arr : array of integer;   i : integer; begin   //устанавливаем длину массива   setlength(arr, n);   for i : = 0 to n - 1 do     arr[i] : = random(max);     //выводим исходный массив   for i : = 0 to n - 1 do     write(arr[i], ' ');   writeln();   sort(arr);   //выводим отсортированный массива   for i : = 0 to n - 1 do     write(arr[i], ' ');   writeln(); end.

Pascalabc.net 3.4.2, сборка 1837 от 11.10.2018 внимание! если программа не работает, обновите версию!

begin

  var a: =readalltext('input.txt').toreals.take(3).toarray;

  a.where(t-> t< > a.max).println

end.

во втором вложении - тестовый файл input.txt