Написать программу обработки одномерного массива - Turbo Pascal - Ответ 14083162

program Project1;
 
const
  maxelem = 100;
type
  TArr = array [1..maxelem] of integer;
 
procedure InArray(var arr: TArr; var nn: integer);
{Процедура для ввода значений в одномерный массив}
var
  i: integer;
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(nn);
  for i:= 1 to nn do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(arr[i]);
    end;
end;
 
procedure OutArray(arr: TArr; nn: integer);
{ Процедура для вывода одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    begin
      write(arr[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
end;
 
 
function IndexMinElem(arr: TArr; nn: integer): integer;
{Функция, которая находит индекс минимального по модулю элемента}
var
  i: integer;
  MinValueElement: integer;
  IndexMinElement: integer;
begin
  MinValueElement:= abs(arr[1]);
  IndexMinElement:= 1;
   for i:= 1 to nn do    {Нахождение минимального значения среди элементов массива }
     if abs(arr[i]) < MinValueElement then
       begin
         MinValueElement:= abs(arr[i]);
         IndexMinElement:= i;
       end;
  IndexMinElem:= IndexMinElement;
end;
 
function MonotonUp(Arr:TArr; nn: integer): boolean;
{Функция, которая определяет, является ли последовательность монотонно возрастающей}
var
  i: integer;
  flag: boolean;
begin
  flag:= true;
  for i:= 1 to nn-1 do
    if arr[i] > arr[i+1] then
       flag:= false;
  MonotonUp:= flag;
end;
 
procedure NewElem( var arr: TArr; var nn: integer; xx: integer);
{Процедура, которая вставляет в начало массива новый элемент}
var
  i: integer;
begin
  nn:= nn + 1;
  for i:= nn-1 downto 1 do
    arr[i+1]:= arr[i];
  arr[1]:= xx;
end;
 
 
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  x: integer; { Переменная для хранения значения нового элемента массива}
begin
  InArray(a,n);
  writeln('Исходный массив: ');
  OutArray(a,n);
  writeln;
  writeln('Индекс минимального по модулю элемента массива: ',IndexMinElem(a,n));
  if MonotonUp(a,n) then
    writeln('Последовательность монотонно возрастающая. ')
  else
    writeln('Последовательность не является монотонно возрастающей. ');
  write('Введите значение нового элемента массива: ');
  Readln(x);
  NewElem(a,n,x);
  writeln('Массив с новым элементом: ');
  OutArray(a,n);
 
  Readln;
end.