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

uses crt;
const nmax=100;
type Tmas=array[1..nmax]of real;
procedure Vvod1m(var a:Tmas;var n:byte;name:string);
var i:byte;
begin
write('Razmernost massiva ',name,': ');
readln(n);
for i:=1 to n do
a[i]:=20*random-9;
end;
procedure Vivod1m(var a:Tmas;n:byte;name:string);
var i:byte;
begin
writeln('Massiv ',name,':');
for i:=1 to n do
write(a[i]:6:2);
writeln;
end;
function MaxOtr(a:Tmas;n:byte):real;
var i,k:byte;
    max:real;
begin
max:=-100;k:=0;
for i:=1 to n do
if (a[i]<0)and(a[i]>max) then
   begin
     max:=a[i];
     k:=1;
   end;
if k=0 then max:=0;
MaxOtr:=max;
end;
procedure Delenie(var a:Tmas;n:byte;chislo:real);
var i:byte;
begin
for i:=1 to n do
a[i]:=a[i]/chislo;
end;
var x1,x2,x3:Tmas;
    n1,n2,n3:byte;
begin
clrscr;
randomize;
Vvod1m(x1,n1,'X1');
Vivod1m(x1,n1,'X1');
writeln('Max otr el=',MaxOtr(x1,n1):0:2);
if MaxOtr(x1,n1)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x1,n1,MaxOtr(x1,n1));
    Vivod1m(x1,n1,'X1');
  end;
Vvod1m(x2,n2,'X2');
Vivod1m(x2,n2,'X2');
writeln('Max otr el=',MaxOtr(x2,n2):0:2);
if MaxOtr(x2,n2)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x2,n2,MaxOtr(x2,n2));
    Vivod1m(x2,n1,'X2');
  end;
Vvod1m(x3,n3,'X3');
Vivod1m(x3,n3,'X3');
writeln('Max otr el=',MaxOtr(x3,n3):0:2);
if MaxOtr(x3,n3)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x3,n3,MaxOtr(x3,n3));
    Vivod1m(x3,n3,'X3');
  end;
readln
end.