И опять файл - Turbo Pascal

Формулировка задачи:

Все отрицательные элементы целочисленного файла перенести в начало файла. Добавлю от себя, файл может быть .txt и не важно как главное чтобы он отрицательные цифры переносил в начало

Код к задаче: «И опять файл - Turbo Pascal»

textual
var f:text;
    a:array[1..1000]of integer;
    n,i,k,j,x:integer;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  inc(n);
  read(f,a[n])
 end;
k:=0;
for i:=1 to n do
if a[i]<0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
rewrite(f);
for i:=1 to n do
write(f,a[i]:4);
close(f);
write('Отрицательные числа в файле переставлены вперед');
readln
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ