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

Array120. Дан целочисленный массив размера $$N$$, содержащий по крайней мере одну серию, длина которой больше $$1$$. Преобразовать массив, уменьшив каждую его серию на один элемент.

Решение:

program Array120;

var

a,b : array [1..20] 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:=0;

for i:=1 to N-1 do

if a[i]=a[i+1] then

begin

inc(k);

b[k]:=a[i];

end;

a:=b;

for i:=1 to k do writeln(a[i]);

end.

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

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

program Array120;//fp

var

a: array[1..10] of integer;

n, i, j: integer;

begin

n := 10;

Randomize;

for i := 1 to n do begin a[i] := Random(2) + 1; Write(a[i], ' '); end;

Writeln;//2 2 1 1 2 2 2 2 1 1

i := n;

while i >= 1 do

begin

if (i = 1) or (a[i] <> a[i - 1]) then

begin

for j := i to n - 1 do

a[j] := a[j + 1];

n -= 1

end;

i -= 1

end;

for i := 1 to n do Write(a[i], ' ');//2 1 2 2 2 1

Readln

end.

program Array120;//pabc.net

begin

var n := 10;

var a := Lst(SeqRandom(n, 1, 2)); a.Println;//1 1 1 2 2 1 1 2 2 2

var i := n - 1;

while i >= 0 do

begin

if (i = 0) or (a[i] <> a[i - 1]) then

begin

a.RemoveAt(i);

n -= 1

end;

i -= 1

end;

a.Println;//1 1 2 1 2 2

end.

Ответить

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

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

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

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