Сортировка с записью в файл

@LooserPascal · Регистрация: 06.11.2010

Студворк — интернет-сервис помощи студентам

Помогите решить задачку.

Дан одномерный массив A[n]. Необходимо:
-все отрицательные элементы поместить в начало массива;
-остальные элементы поместить в конец
-порядок следования чисел необходимо сохранить.
ДОПОЛНИТЕЛЬНЫЙ МАССИВ ЗАДАВАТЬ ЗАПРЕЩЕНО.

Входящие данные - текстовый файл text1.in:
-первая строка - количество элементов массива 10<=n<=100;
-вторая строка элементы массива записанные через пробел;

Исходящие данные - текстовый файл text1.out : элементы массива разделённые пробелом.

ПРИМЕР

text1.in
10
-2 3 4 -5 3 6 2 9 -2 7

text1.out
-2 -5 -2 3 4 3 6 2 9 7

@Puporev · 06.11.2010, 17:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var a:array[1..100] of integer;
    f,g:text;
    n,i,j,k,x:integer;
begin
clrscr;
assign(f,'text1.in');
reset(f);
assign(g,'text1.out');
rewrite(g);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
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;
for i:=1 to n do
write(g,' ',a[i]);
close(g);
write('Отсортированный массив записан в файл tex1.out');
readln
end.

@LooserPascal · 06.11.2010, 21:27 **[ТС]**

При выполнении кода этой программы верного решения я не получил.
Входящие данные были text1.in
10
-2 4 5 -1 0 -3 3 4 5 -1
На выходе я получил text1.out

-2 -1 -3 -1 0 -3 3 4 5 -1

Подскажите где ошибка?
И как всё-таки её решить?

@SuPeR XaKer · 06.11.2010, 21:34

LooserPascal ник о многом говорит.Скопируй текст программы в файл .txt смени расширение c .txt на .pas и открой в ТП.

@Puporev · 06.11.2010, 21:36

Я не знаю что ты творишь, я получаю такое
text1.in

Code
1
2
10
1 -6 0 5 -7 0 8 -3 6 -12

text1.out

Code
1
-6 -7 -3 -12 1 0 5 0 8 6

@LooserPascal · 06.11.2010, 22:03 **[ТС]**

Спасибо !

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5

	Сортировка с записью в файл 06.11.2010, 15:53. Показов 856. Ответов 5 Метки нет (Все метки) Помогите решить задачку. Дан одномерный массив A[n]. Необходимо: -все отрицательные элементы поместить в начало массива; -остальные элементы поместить в конец -порядок следования чисел необходимо сохранить. ДОПОЛНИТЕЛЬНЫЙ МАССИВ ЗАДАВАТЬ ЗАПРЕЩЕНО. Входящие данные - текстовый файл text1.in: -первая строка - количество элементов массива 10<=n<=100; -вторая строка элементы массива записанные через пробел; Исходящие данные - текстовый файл text1.out : элементы массива разделённые пробелом. ПРИМЕР text1.in 10 -2 3 4 -5 3 6 2 9 -2 7 text1.out -2 -5 -2 3 4 3 6 2 9 7 0

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5
	06.11.2010, 21:27 [ТС]
	При выполнении кода этой программы верного решения я не получил. Входящие данные были text1.in 10 -2 4 5 -1 0 -3 3 4 5 -1 На выходе я получил text1.out -2 -1 -3 -1 0 -3 3 4 5 -1 Подскажите где ошибка? И как всё-таки её решить? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	06.11.2010, 21:34
	LooserPascal ник о многом говорит.Скопируй текст программы в файл .txt смени расширение c .txt на .pas и открой в ТП. 0

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5
	06.11.2010, 22:03 [ТС]
	Спасибо ! 0