Пример решения на языке Паскаль:program TwoDigitElements;
const
N = 10;
var
arr: array$$\mathrm{1..}N$$ of integer;
i: integer;
begin
// заполнение массива случайными значениями
Randomize;
for i := 1 to N do
arr$$i$$ := Random$90$ + 10; // генерируем случайное двузначное число
// вывод 2хзначных элементов массива и их номеров
for i := 1 to N do
if (arr[i] >= 10) and (arr[i] < 100) then
writeln${}^{\prime }Элемен{т}^{\prime },arr[i]{,}^{\prime }имеетноме{р}^{\prime },i$;
end.Пример решения на языке Паскаль:program PreLastPositive;
const
N = 10;
var
arr: array$$\mathrm{1..}N$$ of integer;
i, preLastPositive, preLastPositiveIndex: integer;
begin
// заполнение массива случайными значениями
Randomize;
for i := 1 to N do
arr$$i$$ := Random$21$ - 10; // генерируем случайное число от -10 до 10
preLastPositive := -1;
preLastPositiveIndex := -1;
for i := N downto 1 do
begin
if (arr[i] > 0) then
begin
if $preLastPositive=-1$ then
begin
preLastPositive := arr$$i$$;
preLastPositiveIndex := i;
end
else
begin
writeln${}^{\prime }Предпоследнийположительныйэлемент{:}^{\prime },preLastPositive{,}^{\prime }синдексо{м}^{\prime },preLastPositiveIndex$;
break;
end;
end;
end;
end.