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

Array118. Дан целочисленный массив размера $$N$$. Вставить после каждой его серии элемент с нулевым значением.

Решение:

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

program Array118;

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:=1;

b[k]:=a[1];

for i:=2 to N do

begin

inc(k);

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

begin

b[k]:=0;

inc(k);

end;

b[k]:=a[i];

end;

inc(k);

b[k]:=0;

a:=b;

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

end.

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

program Array118;//pabc.net

begin

var n := 10;

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

var i := n - 1;

while i >= 1 do

begin

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

begin

a.Insert(i, 0);

n += 1;

end;

i -= 1

end;

a.Add(0);

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

end.

Ответить

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

➤