Паскаль. 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.
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.