Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722
Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
125 из десятичной получается 1111101 <span>в двоичной
</span>125 из десятичной получается 175 в восьмеричной
125 из десятичной получается <span>7D </span><span>в шестнадцатеричной </span>
Рано, к примеру,больше показателя на ум не приходит
Попробуй по этому плану сделать :
<span>cout</span><span><<</span><span>"Введите числа:<span>\n</span>"</span><span>;</span>
<span>int</span> numbers<span>[</span><span>100</span><span>]</span>, i <span>=</span><span>0</span><span>;</span>
<span>do</span><span>cin</span><span>>></span>numbers<span>[</span>i<span>]</span><span>;</span>
<span>while</span><span>(</span>numbers<span>[</span>i<span>++</span><span>]</span><span>!</span><span>=</span><span>0</span><span>)</span><span>;</span>
<span>long</span> sum <span>=</span><span>0</span><span>;</span>
<span>for</span><span>(</span><span>int</span> j <span>=</span><span>0</span><span>;</span> j <span><</span> i<span>;</span> j<span>++</span><span>)</span> sum <span>+</span><span>=</span> numbers<span>[</span>j<span>]</span><span>;</span>
<span>cout</span><span><<</span><span>"Результат: "</span><span><<</span><span>(</span><span>float</span><span>)</span>sum<span>/</span><span>(</span>i<span>-</span><span>1</span><span>)</span><span>;</span>