вводиться файл из натуральных чисел.Нужно отсортировать числа в файле в порядке

Вводиться файл из натуральных чисел.
Нужно отсортировать числа
в файле в порядке возрастания.

Задать свой вопрос
Таисия
а я туплю целый день!!!((
Тамара Цакун
не могу
Регина Апраксимова
помогите
Андрей Нозадра
Я для тебя теснее произнес что я могу!
Виктор
Но это для тебя по условию наверное не подходить
Колек Барсохин
а как тогда ?
Тимур
Завтра напишу , пример собственной програмы!
Вера Славлова
точно !!!?? напишите
Musabekov Vadim
Поближе к вечеру !
Штундеренко Тамара
ок
1 ответ
Замечание: данные в файле должны быть записаны по одному числу в строке.

const
  m=100; наибольшее количество чисел в файле
var
  f:Text;
  i,j,n,k:integer;
  a:array[1..m] of integer;
begin
  читаем данные из файла в массив
  Assign(f,'SuperFile.txt'); Reset(f);
  i:=0;
  while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
  Close(f);
  n:=i;
  сортируем массив по возрастанию способом пузырька
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] gt; a[j+1] then
      begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
  наполняем файл из массива
  Rewrite(f);
  for i:=1 to n do Writeln(f,a[i],' ');
  Close(f)
end.

Шорычева Валентина
СПАСИБО Громадное!!!!
Владимир Пироцкий
пожалуйста!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт