Алгоритмическое*описание, составление программ обработки одномерного массива.

[timanurgaliyev]

1. «Упаковать» одномерный массив целых чисел. Результирующий массив должен

состоять из меток количества повторений числа и повторяемого числа. Массив

должен быть заполнен случайными значениями в малом диапазоне, с целью

получения последовательностей одинаковых чисел в массиве. После сжатия

массива подсчитать и вывести коэффициент сжатия. Пример. Пусть получен

массив 3, 3, 6, 7, 7, 7, 8, 9, 9, 9, 3, 3, 3, 3. Результирующий массив должен

принять вид: 2, 3, 1, 6, 3, 7, 1, 8, 3, 9, 4, 3.

2. Заполнить одномерный массив случайными значениями от -100 до 100. Затем

разделить массив на 3 массива: первый должен содержать отрицательные

элементы, второй — нулевые, третий — положительные.

3. Заполнить одномерный массив случайными значениями от -5 до 5. Найти сумму

элементов массива между двумя первыми нулями. Если двух нулей нет в

массиве, то вывести ноль.

[p51x]

Зачем вы выкладывает сюда свои задачи? Раздел фриланса ниже.

[newerow1989]

1:

var a,b:array of integer;
    i,la,lb,c,n:integer;
begin
   Randomize;
   la:=5+Random(20);
   SetLength(a,la);
   For i:=0 to la-1 do
   begin
      a[i]:=Random(10);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   lb:=0;
   c:=1;
   n:=a[0];
   For i:=1 to la do
      If a[i]<>n then
      begin
         lb:=lb+2;
         SetLength(b,lb);
         b[lb-2]:=c;
         b[lb-1]:=n;
         c:=1;
         n:=a[i];
      end else
         c:=c+1;
   For i:=0 to lb-1 do
      Write(b[i],'  ');
   Readln;
end.

2:

var a:array of integer;
    i,la:integer;
begin
   Randomize;
   la:=5+Random(20);
   SetLength(a,la);
   For i:=0 to la-1 do
   begin
      a[i]:=-100+Random(201);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   For i:=0 to la-1 do
      If a[i]<0 then
         Write(a[i],'  ');
   Writeln;
   For i:=0 to la-1 do
      If a[i]=0 then
         Write(a[i],'  ');
   Writeln;
   For i:=0 to la-1 do
      If a[i]>0 then
         Write(a[i],'  ');
   Writeln;
   Readln;
end.

3:

var a:array of integer;
    i,la,i1,i2,s:integer;
begin
   Randomize;
   la:=5+Random(20);
   SetLength(a,la);
   i1:=-1;
   i2:=-1;
   For i:=0 to la-1 do
   begin
      a[i]:=-5+Random(11);
      Write(a[i],'  ');
      If a[i]=0 then
         If i1<0 then
            i1:=i else
         If i2<0 then
            i2:=i;
   end;
   Writeln;
   Writeln;
   If i2<0 then
      Writeln('0') else
   begin
      s:=0;
      For i:=i1+1 to i2-1 do
         s:=s+a[i];
      Writeln(s);
   end;
   Readln;
end.

[Аватар]

Двоешник победил

[newerow1989]

Сообщение от Аватар

Двоешник победил

УР-Р-РА-А-А-А-А-А-А-А-А!!!

[Вадим Мошев]

Большой наглостью топикстартера было пожаловаться на это сообщение с формулировкой "Оскорбления":

Сообщение от p51x

Зачем вы выкладывает сюда свои задачи? Раздел фриланса ниже.