Program p1;
Type
Vector = array [1 .. 1000] of integer;
var
n, i: integer;
f: text;
cisla: Vector;
procedure Sorting(n: integer; Var x: Vector);
procedure exchange(var a, b: integer);
var
c: integer;
begin
c := a;
a := b;
b := c;
end;
var
i: integer;
swop: boolean;
begin
repeat
swop := false;
for i := 1 to n - 1 do
if x[i] > x[i + 1] then
begin { esli "<" togda po ubivaniiu }
exchange(x[i], x[i + 1]);
swop := true;
end;
n := n - 1;
until not swop;
end;
begin
assign(f, 'f.txt');
reset(f);
n := 0;
while not eof(f) do
begin
inc(n);
read(f, cisla[n]);
end;
writeln('Uporyadochennye komponenty faila: ');
Sorting(n, cisla); { SORTIRUEM }
for i := 1 to n do
writeln(cisla[i]);
writeln('Rezulitat uporyadochivaniya perepisan v samom fayle - "f.txt" !!!');
rewrite(f);
for i := 1 to n do
writeln(f, cisla[i]);
close(f);
readln;
end.
Похожие записи/страницы:
- В одномерном массиве, состоящем из N вещественных элементов, преобразовать массив таким образом, чтобы сначала…
- Введите предложение длинной не более 80 символов. Упорядочите его слова по убыванию длины. Выведите на экран…
- Дана целочисленная матрица {Aij}i=1...n;j=1..n , n меньше или равно 100. Если сумма наибольшего и наименьшего…
- Дана матрица A[1:5;1:6]. Найти максимальный элемент в каждом столбце и сформировать из них массив - Pascal(Паскаль)
- Составить список студентов, включающий ФИО, факультет, курс, группу, результат забега. Определить трех лучших в…
- Составить список студентов, включающий ФИО, факультет, курс, группу, результат забега. Определить трех лучших в…
- В программе организовать меню, позволяющие выбрать один или несколько инструментов - Pascal(Паскаль)
- Дана квадратная матрица. Расположить отрицательные элементы побочной диагонали в порядке убывания - Pascal(Паскаль)