Создать массив целых чисел R[1.N], содержащий серии чисел, разделенных нулями

@Fakeoke · Регистрация: 28.07.2011

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

Последовательность чисел до первого нуля, между нулями и от последнего нуля до последнего числа назовем серией.
Создать массив целых чисел R[1..N], содержащий серии чисел, разделенных нулями.
Отсортировать массив по возрастанию сумм чисел в сериях.

пример
2 4 0 65 43 0 21 11
должно стать
2 4 0 21 11 0 65 43

есть набросок, но тут сделана только половина
подсчет нулей в массиве, запись номеров нулей в другой массив, запись сумм серий в третий массив...

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
31
32
33
34
program zxcvbnm;
uses crt;
const n=30;
var r,s,nn:array[1..n] of integer;
i,j,k,m:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
r[i]:=random(20);
{r[5]:=0;
r[10]:=0;
r[20]:=0;}
write(r[i],' ');
end;
writeln;
i:=0;k:=1;
repeat
i:=i+1;
if r[i]=0 then
begin
k:=k+1;
nn[k]:=i;
write(nn[k],' ');s[k]:=0;nn[k]:=n;
end
else
s[k]:=s[k]+r[i];
until i=n;
writeln;
writeln('vsego 0: ',k-1);
if k=0 then writeln('serii net');
readln;
end.

заранее спасибо за помощь

@volvo · 26.09.2012, 14:51

Fakeoke, проверялось на FPC. так что, если будут проблемы с Турбо-Паскалем - пиши:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
uses crt;
 
const
   size = 30;
type
   vector = array[1 .. size] of integer;
 
var
   a: vector;
   zero : array[0 .. size] of integer;
 
function f(index : integer) : integer;
var i, s : integer;
begin
   s := 0;
   for i := zero[pred(index)] + 1 to zero[index] - 1 do
      s := s + a[i];
   f := s;
end;
 
procedure swap_series(index1, index2 : integer);
 
var
   buffer : vector;
   i_buf : integer;
 
   procedure ToBuffer(value : integer);
   begin
      inc(i_buf);
      buffer[i_buf] := value;
   end;
 
var
   i, T : Integer;
 
begin
   i_buf := 0;
   for i := zero[index2 - 1] + 1 to zero[index2] - 1 do ToBuffer(a[i]);
   {
   begin
      inc(i_buf);
      buffer[i_buf] := a[i];
   end;
   }
   ToBuffer(0);
   {
   inc(i_buf);
   buffer[i_buf] := 0;
   }
   for i := zero[index1 - 1] + 1 to zero[index1] - 1 do ToBuffer(a[i]);
   {
   begin
      inc(i_buf);
      buffer[i_buf] := a[i];
   end;
   }
 
 
   for i := 1 to i_buf do
      a[zero[pred(index1)] + i] := buffer[i];
   zero[index1] := zero[pred(index1)] + (zero[index2] - zero[index1]);
end;
 
var
   num_zeroes : integer;
   i, j : integer;
   flag : boolean;
 
begin
   clrscr;
 
   zero[0] := 0;
   num_zeroes := 0;
   for i := 1 to size do
   begin
      a[i] := random(100);
      { if a[i] = 0 then }
      if i in [10, 15, 19, 24] then
      begin
         a[i] := 0;
         inc(num_zeroes);
         zero[num_zeroes] := i;
      end;
      write(a[i]:3);
   end;
   inc(num_zeroes);
   zero[num_zeroes] := size + 1;
 
   writeln;
 
   for i := 1 to num_zeroes do
      for j := num_zeroes downto i + 1 do
         if f(j - 1) > f(j) then
            swap_series(j-1, j);
   writeln;
 
   for i := 1 to size do
      write(a[i]:3);
   writeln;
end.

@Fakeoke · 26.09.2012, 23:04 **[ТС]**

ох ты ж емае, мы не проходили ни процедуры ни функции ,а я буду это сдавать

но ладно, надеюсь разберусь и как-нибудь без них напишу...или все-таки придется сдавать это)
и конечно же спасибо за работу)

@volvo · 26.09.2012, 23:46

Без подпрограмм, так без подпрограмм. Только разобраться будет сложнее:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
uses crt;
 
const
   size = 30;
type
   vector = array[1 .. size] of integer;
 
var
   a, buffer: vector;
   zero : array[0 .. size] of integer;
 
   num_zeroes : integer;
   i, j, k : integer;
   sum_left, sum_right : integer;
   i_buf : integer;
 
begin
   clrscr;
 
   zero[0] := 0;
   num_zeroes := 0;
   for i := 1 to size do
   begin
      a[i] := random(100);
      { if a[i] = 0 then }
      if i in [10, 15, 19, 24] then
      begin
         a[i] := 0;
         inc(num_zeroes);
         zero[num_zeroes] := i;
      end;
      write(a[i]:3);
   end;
   inc(num_zeroes);
   zero[num_zeroes] := size + 1;
 
   writeln;
 
   for i := 1 to num_zeroes do
      for j := num_zeroes downto i + 1 do
      begin
         sum_left := 0;
         for k := zero[j - 2] + 1 to zero[j - 1] - 1 do
            inc(sum_left, a[k]);
 
         sum_right := 0;
         for k := zero[j - 1] + 1 to zero[j] - 1 do
            inc(sum_right, a[k]);
 
         if sum_left > sum_right then
         begin
            i_buf := 0;
            for k := zero[j - 1] + 1 to zero[j] - 1 do
            begin
               inc(i_buf);
               buffer[i_buf] := a[k];
            end;
 
            inc(i_buf);
            buffer[i_buf] := 0;
 
            for k := zero[j - 2] + 1 to zero[j - 1] - 1 do
            begin
               inc(i_buf);
               buffer[i_buf] := a[k];
            end;
 
 
            for k := 1 to i_buf do
               a[zero[j - 2] + k] := buffer[k];
            zero[j - 1] := zero[j - 2] + (zero[j] - zero[j - 1]);
         end;
      end;
   writeln;
 
   for i := 1 to size do
      write(a[i]:3);
   writeln;
 
end.

@Fakeoke · 27.09.2012, 15:46 **[ТС]**

к сожалению что-то неправильно ибо 2 нуля подряд быть не может

@volvo · 27.09.2012, 16:30

Пардон, а как первый элемент последовательности стал равен 0? Этого тоже быть не может. Не надо обнулять первый/последний элемент, программа рассчитана на то, что крайний правый и крайний левый - обычные элементы, не нулевые.

Заполняй последовательность так, как было показано тобой же в первом посте, а не придумывай ничего на ходу. Там что, первый элемент был нулём? Или последний? Не был.

@Fakeoke · 28.09.2012, 16:21 **[ТС]**

извините, сударь, но в условии задачи также и не сказано что 1 и последний обязательно не 0
массив задается рандомом, поэтому и первый и последний легко может быть нулем
и пример же я составлял на рандоме, чтобы было понятнее

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	26.09.2012, 23:04 [ТС]
	ох ты ж емае, мы не проходили ни процедуры ни функции ,а я буду это сдавать но ладно, надеюсь разберусь и как-нибудь без них напишу...или все-таки придется сдавать это) и конечно же спасибо за работу) 0

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	27.09.2012, 15:46 [ТС]
	к сожалению что-то неправильно ибо 2 нуля подряд быть не может Миниатюры 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	27.09.2012, 16:30
	Пардон, а как первый элемент последовательности стал равен 0? Этого тоже быть не может. Не надо обнулять первый/последний элемент, программа рассчитана на то, что крайний правый и крайний левый - обычные элементы, не нулевые. Заполняй последовательность так, как было показано тобой же в первом посте, а не придумывай ничего на ходу. Там что, первый элемент был нулём? Или последний? Не был. 0

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	28.09.2012, 16:21 [ТС]
	извините, сударь, но в условии задачи также и не сказано что 1 и последний обязательно не 0 массив задается рандомом, поэтому и первый и последний легко может быть нулем и пример же я составлял на рандоме, чтобы было понятнее 0