Слава
Задан файл f, компонентом которого явл. массив целых чисел.
Переписать в файл g вначале все отрицательные, затем все нулевые, а затем все положительные элементы, упорядочив их по возрастанию.
Паскаль.
Переписать в файл g вначале все отрицательные, затем все нулевые, а затем все положительные элементы, упорядочив их по возрастанию.
Паскаль.
var i,j,n,x:integer;
a: array[1...1000] of integer;
f1,f2:text;
begin
assign(f1,'f'); assign(f2,'g'); reset(f1);
n:=0;
for i:=1 to 1000 do begin
while not eoln do
begin read(f1,a [ i ]); inc(n); end;
end;
for i:=1 to n-1 do
for j:=1 to n-i do
if j > j+1 then begin x:=a[j+1]; a[j+1]:=a[j]; a[j]:=x; end;
rewrite(f2);
for i:=1 to n do
writeln(f2,a [ i ]);
close(f1); close(f2);
end.