Паскаль. 2. Дан массив размера N. Вывести все 2хзначные элементы массива и их номера. 3. Дан массив размера N. Вывести предпоследний положительный элемент массива и его номер.

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке Паскаль:program TwoDigitElements;
const
N = 10;
var
arr: array[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('Элемент ', arr[i], ' имеет номер ', i);
end.Пример решения на языке Паскаль:program PreLastPositive;
const
N = 10;
var
arr: array[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('Предпоследний положительный элемент: ', preLastPositive, ' с индексом ', preLastPositiveIndex);
break;
end;
end;
end;
end.