Вася составил алгоритм который заполняет одномерный целочисленный массив из 100 ячеек (нумерация с 0) последовательными натуральными числами начиная с 1. затем алгоритм обнуляет все ячейки с нечетными простыми числами. затем алгоритм обнуляет все ячейки, чей индекс кратен содержимому третьей непустой (не содержащей ноль) с начала массива ячейки. какое число хранится в ячейке с индексом 17

1. изначально в ячейках
1,2,3,4,5,6,7,8...
a[17] = 18
2. Обнулили простые числа, >2
1,2,0,4,0,6,0,8,...
a[17] = 18 - не затронута, т.к. 18 - составное число
3. Третья непустая ячейка с начала массива - a[3]=4
Обнулятся ячейки a[4], a[8], a[12]
Ячейка a[17] затронута не будет, т.к. 17 не кратно 4
ответ
a[17] = 18

Const n=10;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(21);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do s:=s+a[i,j];
 b[i]:=s;
 end;
writeln('Полученный массив:');
for i:=1 to n do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
   8  12  16  16  19  15  11  11  13   7
   7   3  20   3  13   2  20  18   9   2
  18  11  17   0   4   0  18   3  17  12
  12   9  18   9  18   4   7  15   4  20
  17  12  13  20  12  20   4  10  16  18
  15  19   2   1  18  20  13   1  19   3
  12   7   8  13   3   3  15  13   2  15
  15   0  20   9  20  14   3  19   6  20
  12   4  19   0  19   2  18   4  12  10
   3   7   5  15  15   3  19   9  10   8
Полученный массив:
 128  97 100 116 142 111  91 126 100  94

У меня это уже было я из тетрадки перепишу  
2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268
3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)
137 / 2 = 68 ( остаток 1)
68 / 2 = 34 (остаток 0)
34 / 2 = 17 (остаток 0)
17 / 2 = 8 (остаток 1)
8 / 2 = 4 (0)
4 / 2 = 2 (0)
2 / 2 = 1 (0)
Теперь надо записать остатки в обратном порядке = 10001001
4) Как я понял 8 и 16 это систему счисления, если да то:
а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105
б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44
ну блин как то так наверное