Вам дается строка S, представляющая сценарий движения дрона. Первоначально дрон остается в координате (0, 0 Затем, согласно сценарию, он начинает двигаться. Дрон может двигаться в четырех возможных направлениях: вверх(U), вниз(D), влево(L), вправо(R). Ваша задача-построить матрицу N×M, представляющую его путь. Для каждой координаты (i, j | i выведите"*", если беспилотник находился в этой координате, и "X", если его не было. Ввод Первая строка содержит строку S, вторая строка содержит два целых числа через пробел N и M (1≤N, M≤100). Выход Матрица N×M, представляющая его путь

Program gulkakh;
const n=5;
var a:array[1..n,1..n] of integer;   
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do   
for j:=1 to n do    begin   
 a[i,j]:=random(20)-10;   
 write(a[i,j],' ');   
  if j=n then writeln; 
  end;   

 stroka:=1;
max:=a[1,1];

for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
stroka:=i;
end;
end;

k:=n;

for i:=stroka to n-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
k:=k-1;
writeln('Без удаленной строки:');
for i:=1 to k do 
 for j:=1 to n do begin
  write(a[i,j],' '); 
if j=n then writeln; 
end;
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

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

uses crt,graphABC;

var x,y: integer;

begin

setwindowsize(500,500);

hidecursor;

lockdrawing;

x:=250; y:=250;

setbrushcolor(clyellow);

setpenwidth(4);

repeat

clearwindow(clskyblue);

setpencolor(clyellow);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

 

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

 

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

circle(250,250,60);

 

sleep(150);

redraw;

 

clearwindow(clskyblue);

setpencolor(clred);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

 

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

 

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

setpencolor(clyellow);

circle(250,250,60);

 

sleep(150);

redraw;

until keypressed;

end.

Объяснение: