Решаем задачи Абрамян на Паскале. Array116

Array116. Дан целочисленный массив $$A$$ размера $$N$$. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна $$1$$). Сформировать два новых целочисленных массива $$B$$ и $$C$$ одинакового размера, записав в массив $$B$$ длины всех серий исходного массива, а в массив $$C$$ — значения элементов, образующих эти серии.

Решение:

program Array116;
var
 a,b,c : array [1..10] of real;
 N,i,k: integer;

begin
 Write('N: ');
 Readln(N);

 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;

 k:=1;
 b[k]:=1;
 c[k]:=a[k];
 for i:=2 to N do
  begin
   if a[i-1]=a[i] then b[k]:=b[k]+1
   else
    begin
     inc(k);
     b[k]:=1;
     c[k]:=a[i];
    end;
  end;


 for i:=1 to k do writeln(c[i],' - ', b[i] );
end.

program Array116;

var

a,b,c : array [1..10] of real;

N,i,k: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

k:=1;

b[k]:=1;

c[k]:=a[k];

for i:=2 to N do

begin

if a[i-1]=a[i] then b[k]:=b[k]+1

else

begin

inc(k);

b[k]:=1;

c[k]:=a[i];

end;

for i:=1 to k do writeln(c[i],' - ', b[i] );

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 3

Bronislav

20.07.2018 в 12:33

Определение серии у них какое-то странное. Если серия – это группа элементов, то она априори (или определенно, интуитивно или еще какое-то другое подходящее слово) не может состоять из одного элемента. А значит и длина такой серии не может быть равна 1. То есть по идее минимальная длина серии должна быть равна 2.

Ответить
- Anton
  
  23.07.2018 в 13:02
  
  А по мне так всё ок. 🙂 массив из 1 элемента или массив 0 длинны, или нулевая матрица, это же нормальные математические инструменты. Почему бы не быть серии из 1 элемента или даже 0 длинны 🙂
  
  Ответить

program array_116;//pascalABC.net

begin
  var n := 10;
  var a := ArrRandom(n, 0, 1); a.Println;//1 0 0 0 0 1 1 0 0 0
  var b := Lst(1);
  var c := Lst(a[0]);
  
  var j := 0;
  
  for var i := 1 to n - 1 do
    if a[i] <> a[i - 1] then
    begin
      b.Add(1);
      c.Add(a[i]);
      j += 1;
    end
    else b[j] += 1;
  
  b.Println;//1 4 2 3
  c.Println;//1 0 1 0
end.

program array_116;//pascalABC.net

begin

var n := 10;

var a := ArrRandom(n, 0, 1); a.Println;//1 0 0 0 0 1 1 0 0 0

var b := Lst(1);

var c := Lst(a[0]);

var j := 0;

for var i := 1 to n - 1 do

if a[i] <> a[i - 1] then

begin

b.Add(1);

c.Add(a[i]);

j += 1;

end

else b[j] += 1;

b.Println;//1 4 2 3

c.Println;//1 0 1 0

end.

Ответить

Решаем задачи Абрамян на Паскале. Array116

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ