Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
Var a,b,k:integer;
begin
read(a,b); k:=a-1;
if a>b then do
while k<>b do begin
write(k); k:=k-1;
end;
end.
Алг Сумма
нач
цел s,i
s:=0
нц для i от 100 до 300
если mod(i,3) = 0 то
s:=s+i
все
кц
вывод "s = ", s
кон
.......................................................
Прямой код:
9₁₀=00001001₂
2₁₀=00000010₂
5₁₀=00000101₂
7₁₀=00000111₂
Обратный код:
-9₁₀=11110110₂
-2₁₀=11111101₂
-5₁₀=11111010₂
-7₁₀=11111000₂
Дополнительный код:
-9₁₀=11110111₂
-2₁₀=11111110₂
-5₁₀=11111011₂
-7₁₀=11111001₂
Обр. коды:
а) 9-2=00001001+11111101=100000110₂
б) 2-9=00000010+11110110=11111000₂
в) -5-7=11111010+11111000=111110010₂
Доп. коды:
а) 9-2=00001001+11111110=100000111₂
б) 2-9=00000010+11110111=11111001₂
в) -5-7=11111011+11111001=111110100₂