Задание Представьте, что робот находится на поле 150 х 150 см. На- против него, на разном расстоянии, находятся з препятствия. Напишите программу, благодаря которой робот вычис- лит расстояние до каждого из объектов, сравнит полученные данные и доедет до ближайшего объекта. На следующем этапе он должен просчитать расстояние до двух оставшихся объектов и снова доехать до ближайшего, а после этого - до самого дальнего. Попробуйте создать похожую программу на сайте LEGO Mindstorm: https://makecode mindstorms.com/editor. НАПИШИТЕ ИМЕННО, КАК ЭТО БУДЕТ В ПРОГРАММЕ

const

 nmax = 100;

 n = 10;

var

 a: array[1..nmax, 1..nmax]of integer;

var

 i, j: byte;

begin

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     A[i, j] := Random(-10, 10);

     write(A[i, j]:5);    

   end;

   writeln;

 end;

end.

Тестовое решение

  -2    7  -10   -3   -4    6   -6    8    0    8

  10   -8   10    2   -2    7   -8   -7    5    9

  -4    4    3   -8   -4   -4   -8    7    1   10

  -8    3   -5    0    3   -9   -7    1   -7   -4

   2    2    8   -2    1   10   -7    7    6    7

  -6   -2    9    8   -4    4   -6    8   -9   10

   4   -3   -4    1    5   -3    7    0   10   -4

   3    2   10   -1   -3    4    7   -5    2   -3

  -8   -4   -9    5    6    4    4   -2   -7    9

   8   -4    0   -7    3   -6   -5   -3    3   -6

(см. объяснение)

Объяснение:

Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.

Задание №1:

program task1;

var a: array [1..7] of integer;

   i,k: integer;

begin

 randomize;

 k:= 0;

 for i:= 1 to 7

   do begin

       a[i]:= random(50)-1;

       if(a[i] mod 3 = 0) then a[i]:= 0

       else if(a[i] = 7) then k:= k+1;

      end;

 write('Массив с замененными числами: ');

 println(a);

 writeln('Количество элементов, равных 7: ', k);

end.

Задание №2:

begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.