Выполнить практическую работу в субд(microsoft access).

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

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

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end