Скажите кто и когда создал механическую счетную машинку

Иэто вам задоют в школе

{1} const   n=17; var   a: array[1..n] of integer;   i,k: integer; begin   randomize;   k: =0;   for i: =1 to n do begin       a[i]: =random(99)+1;       write(a[i],' ');       if a[i] mod 2=0 then k: =k+1       end;   writeln;   writeln('k=',k) end. пример 43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8 k=10 { 2/3} const   n=17; var   a: array[1..n] of integer;   i,s: integer; begin   randomize;   s: =0;   for i: =1 to n do begin       a[i]: =random(99)+1;       write(a[i],' ');       if a[i] mod 10=2 then s: =s+a[i]       end;   writeln;   writeln('s=',s) end. пример 58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76 s=54

1. сначала элементы массива получают значения по формуле получаем в массиве значения 1,2,3, 11. 2. далее, походим по массиву с конца, т.е. от элемента с номером 10 к номеру 1 и каждому элементу присваиваем значение элемента, индекс которого равен 10-i, где i - индекс текущего элемента. получается, что в a₁₀ попадает значение элемента с индексом 10-10=0, т.е a₀=1 и теперь a₁₀=1. затем в a₉ попадает значение элемента с индексом 10-9=1, т.е a₁=2 и получаем a₉=2. далее a₈=3, потому что а₂ переписывается в а₈, а₇=4, а₆=5. и вот, когда i=5, 10-i тоже равно 5 и получаем, что в а₅ переписывается содержимое самого а₅, т.е. а₅ остается равным 6. а затем в а₄ попадет содержимое а₆ (10-4=6), а туда (см. чуть выше, выделено жирным) мы записали то, что было в а₄, поэтому фактически а₄, а₃, а₀ не поменяются. итоговые значения будут такими: 1 2 3 4 5 6 5 4 3 2 1 - ответ с номером 4.