Трудолюбивый исполнитель муравьишка пе­ре­ме­ща­ет­ся на экра­не компьютера, остав­ляя след в виде линии. в каж­дый кон­крет­ный мо­мент из­вест­но по­ло­же­ние ис­пол­ни­те­ля и на­прав­ле­ние его движения.у ис­пол­ни­те­ля су­ще­ству­ет две команды: иди вперёд(n) (где n — целое число), вы­зы­ва­ю­щая пе­ре­дви­же­ние муравьишки на n шагов в на­прав­ле­нии движения; поверни направо(m) (где m — целое число), вы­зы­ва­ю­щая из­ме­не­ние на­прав­ле­ния дви­же­ния на m гра­ду­сов по ча­со­вой стрелке. за­пись а ну ка повтори k [команда1 команда2 командаз] означает, что по­сле­до­ва­тель­ность ко­манд в скоб­ках по­вто­рит­ся k раз.при вы­пол­не­нии ка­ко­го из пе­ре­чис­лен­ных ниже ал­го­рит­мов на экра­не по­явится пра­виль­ный двенадцатиугольник (если вообще появится)? ​

program massiv;

const Sz = 100; // Размер массива

var

 a: array [1..Sz] of integer;

 i: integer;

 max: integer;

 counter: integer;

begin

 max:=0;

 counter:=0;

 for i:=1 to Sz do begin

   a[i] := random(26) + 10;

   if a[i] > max then begin

       max := a[i];

       end;

   end;

   writeln('Элементы массива: ');

 for i:=1 to Sz do begin

   write(a[i],' ');

   if a[i] = max then begin

       counter := counter + 1;

       end;

   end;

   writeln('');

   writeln('Максимальный элемент: ', max);

   writeln('Кол-во таких элементов ', counter);

end.

Объяснение:

program massiv;

const Sz = 100; // Размер массива

var

 a: array [1..Sz] of integer;

 i: integer;

 max: integer;

 counter: integer;

begin

 max:=0;

 counter:=0;

 for i:=1 to Sz do begin

   a[i] := random(26) + 10;

   if a[i] > max then begin

       max := a[i];

       end;

   end;

   writeln('Элементы массива: ');

 for i:=1 to Sz do begin

   write(a[i],' ');

   if a[i] = max then begin

       counter := counter + 1;

       end;

   end;

   writeln('');

   writeln('Максимальный элемент: ', max);

   writeln('Кол-во таких элементов ', counter);

end.

Объяснение: