Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
7x+6y+24, 14x+12y+20 и <span>21x+18y+3 — у этих трёх уравнений соотношение коэффициентов при х и у = 7:6 (7:6, 14:2 и 21:18)</span>
Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.
Пример:
n = 672
m = 62
Восьмеричные числа можно переводить в двоичные (и обратно) поразрядно:
. Каждое из переведенных чисел будет иметь 3 цифры. От 001 до 111.
Как можно заметить, минимальным при соблюдении условий из задания будет число (первые нули не являются значащими)
Ответ: 1077.