Заполни в тетрадь программу предложенную в ролике "на фоне дороги было три одинаковых спрайта , стоящих все на одном уровне на равных интервалах друг от друга. На фоне стоят на одном уровне три спрайта , и крайний сама больше остальных в 2 раза " и добавь комментарий к каждой страке с обьяснением , что выполняется.

Для построения ЭВМ двоичная система счисления оказалась более удобной. С технической точки зрения создать устройство с всего лишь двумя состояниями проще. (есть потенциал -1 \нет - 0)Для их представления достаточно иметь электронные схемы. Официальное рождение двоичной арифметики связывают с именем Г.В.Лейбница, который опубликовал статью, описывающию все арифметические действия над двоичными числами. Потом было более активное и глубокое изучение двоичной системы. Первые двоичные вычислительные машины построили во Франции и Германии. А утверждение двоичной системы в качестве общепринятой приконструировании ЭВМ состоялось уже под влиянием работы А.Бекса, Х. Гольдстайна и Дж.Фон Неймана о проекте первой ЭВМ с хранимой в памяти программой, написанной в 1946 году. В этой же работе и аргументирован переход к двоичной системе.
Проще говоря 1 - есть сигнал, 0 - нет сигнала, намагниченный участок\ненамагниченный и т.д. и машине понятно и человеку можно разобраться, вот так и создали двоичный код, научились по нему программировать, сформулировали принципы, необязательно было все расписывать, главное знать принцип - значение каждой цифры "по месту" при переходе от младшего разряда к старшему увеличивается вдвое. А вот уж языки пограммирования расписываются

Const n = 5;
const m = 5;
var a:array [1..n,1..m] of integer;
     i,j,k,l,max,min:integer;
begin
  randomize;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(30)+1;
      write (a[i,j]:4);
     end;
    writeln;
   end;
  max:=1;
  min:=1;
  k:=1;
  l:=1; 
  for i:=1 to n do
   for j:=1 to m do 
    if a[i,j]>a[max,k] then
     begin
      max:=i;
      k:=j;         
     end else if a[i,j]<a[min,l] then
     begin
      min:=i;
      l:=j;
     end;
  writeln ('Max: ',a[max,k],'. Index: [',max,',',k,']');
  writeln ('Min: ',a[min,l],'. Index: [',min,',',l,']');
end.