Program Sorting;

uses Crt;

var

F: File of Integer;

I, J, M: Word;

Mas: Array[1..500] of Integer;

S: String;

begin

ClrScr;

Write('Enter filename: ');

Readln(S);

{ открываем файл }

Assign(F, S);

{$I-}

Reset(F);

{$I+}

if IOResult <> 0 then

begin

Write('Error when open file!');

Halt;

end;

{ пока не конец файла, читаем массив }

While (not Eof(F)) do

begin

Inc(M);

Read(F, Mas[M]);

Write(Mas[M], ' ');

end;

{ сортируем массив по возрастанию }

For I := 1 to M do

For j := 1 to M do

if Mas[I] < Mas[J] then

begin

inc(mas[j], mas[i]);

mas[i] := mas[j]-mas[i];

dec(mas[j], mas[i]);

end;

Writeln; Writeln('=============================================');

{ перезаписываем файл }

ReWrite(F);

For I := 1 to 100 do

begin

Write(Mas[I], ' ');

Рекомендуем скачать другие рефераты по теме: курсовые работы бесплатно, курсовик.

Поделитесь этой записью или добавьте в закладки