var
a: array of integer;
n, i: integer;
begin
randomize;
write('Введите размерность массива: ');
readln(n);
Setlength(a, n);
writeln('Массив: ');
for i := 0 to n - 1 do
begin
a[i] := random(21) - 10;
write(a[i]:5);
end;
writeln;
writeln('Результат деления отрицательных элементов на 2: ');
for i := 0 to n - 1 do
begin
if a[i] < 0 then write(a[i] / 2:5)
else write(a[i]:5)
end;
<span>end.</span>
Резюме, я думаю что это резюме
Оскільки повідомлення нам бреше, в ньому виходить 33 символи, отже потрібно всього лише 33*8, що дорівнює 264.(звісно якщо не рахувати крапку в кінці)
Пусть х основание системы
ax^2+x+5=61
ax^2+x=56.
учтем что х целое и не меньше 6.
x^2<=56
x<=7
6<=x<=7
a=0 x=56
x=6 a*36+6=56
a*36=50
нет целого решения
х=7
a*49+7=56 a=1
<span>ответ 7, 56</span>