Ответ:
5
Объяснение:
Используем расширенную запись числа и переходим к десятичной системе.
x × (1 × x + 2) = 3 × 9 + 8
x² + 2x = 35
x² + 2x - 35 = 0
Уравенение имеет два корня: -6 и 5. Основание системы счисления должно быть натуральным числом, поэтому остается только 5
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
Система - это объеденные наборы элементов. Объеденяются они по какому либо типу: например по размеру, по функция, по типу - содержанию, и так далее.
Рпоа рьдрпелрсоплркчоле\цчлопдрпопрчолрпеодлкы