Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент - Pascal - Ответ 112314

uses CRT;
 
const
  nmax = 10;
 
var
  i, n1, n2, n3      : integer;
  X1  : array[1..nmax] of integer;
  X2  : array[1..nmax] of integer;
  X3  : array[1..nmax] of integer;  
  
procedure Vvod1m(var a : array of integer; N: integer);
var  q : integer;
begin
  for q := 1 to N do
  begin
    Write('Введите ',q,'-й элемент массива : ');
    ReadLn(a[q]);
  end;
end;
 
procedure Vivod1m(a : array of integer; N: integer);
var  q : integer;
begin
  for q := 1 to N do
    Write(a[q]:3,' ');
  WriteLn;
end;
 
function MaxOtr(a : array of integer; N: integer) : integer;
var  q, max : integer;
begin
  Max := 0;
  for q := 1 to N do
    if a[q]<max then
      max := a[q];
 
  MaxOtr := max;
end;
 
procedure Delenie(var a : array of integer; N: integer; Chislo : integer);
var  q : integer;
begin
  if chislo = 0 then
  begin
    WriteLn('ОШИБКА : нельзя делить на ноль!');
    Exit;
  end;
 
  for q := 1 to N do
    a[q] := a[q] div chislo;
end;
 
begin
  ClrScr;
  
  {вводим массивы}
  Write('Введите количество элементов массива X1 (MAX=',nmax,') : '); ReadLn(n1); if n1>nmax then n1:=nmax;
  Vvod1m(x1,n1);
 
  Write('Введите количество элементов массива X2 (MAX=',nmax,') : '); ReadLn(n2); if n2>nmax then n2:=nmax;
  Vvod1m(x2,n2);
 
  Write('Введите количество элементов массива X3 (MAX=',nmax,') : '); ReadLn(n3); if n3>nmax then n3:=nmax;
  Vvod1m(x3,n3);
 
  ClrScr;
 
  WriteLn('МАССИВЫ ДО ПРЕОБРАЗОВАНИЯ');
  Vivod1m(x1,n1);
  Vivod1m(x2,n2);
  Vivod1m(x3,n3);
 
  Delenie(x1,n1, MaxOtr(x1,n1));
  Delenie(x2,n2, MaxOtr(x2,n2));
  Delenie(x3,n3, MaxOtr(x3,n3));
 
  WriteLn('МАССИВЫ ПОСЛЕ ПРЕОБРАЗОВАНИЯ');
  Vivod1m(x1,n1);
  Vivod1m(x2,n2);
  Vivod1m(x3,n3);
 
  WriteLn;
  WriteLn('Для продолжения нажмите любую клавишу...');
  ReadKey;
end.