Запишите в тетради методы вызываемые для при движении автомобиля по экрану​

Про­ана­ли­зи­ру­ем каж­дую по­сле­до­ва­тель­ность.

По­сле­до­ва­тель­ность 122 не может быть по­лу­че­на в ре­зуль­та­те вы­пол­не­ния ал­го­рит­ма, по­сколь­ку числа за­пи­сы­ва­ют­ся в по­ряд­ке не­убывания, а число 22 не может яв­лять­ся раз­но­стью двух чисел, мень­ших шестнадцати.

По­сле­до­ва­тель­ность 212 может быть по­лу­че­на в ре­зуль­та­те вы­пол­не­ния ал­го­рит­ма, пред­ло­жен­но­го учи­те­лем, в этом слу­чае ис­ход­ные цифры были: F, D, 1.

По­сле­до­ва­тель­ность 313 не может быть по­лу­че­на в ре­зуль­та­те вы­пол­не­ния ал­го­рит­ма, пред­ло­жен­но­го учи­те­лем, по­сколь­ку из ана­ли­за преды­ду­щей по­сле­до­ва­тель­но­сти ясно, что не удаст­ся вы­брать такие три числа в шест­на­дца­те­рич­ной системе.

По­сле­до­ва­тель­ность 3A не может быть по­лу­че­на в ре­зуль­та­те вы­пол­не­ния ал­го­рит­ма, по­сколь­ку обе раз­но­сти долж­ны быть за­пи­са­ны как де­ся­тич­ные числа.

Пра­виль­ный ответ ука­зан под но­ме­ром 2.

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38