Решить уравнение ах+в=0 , если это возможно. решить на языке pascal, развервляющийся алгоритм. решить надо до 11: 00 по мск, после не принимаю

// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var n: =readinteger('n=');   var a: =arrrandomreal(n,1,50);   a.println;   var m: =a.min;   if m< > 0 then       for var i: =0 to n-1 do a[i]/=m;   a.println end. тестовые решения: n= 5 15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834 1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304 n= 10 14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769 2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298 // pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var n: =readinteger('n=');   var a: =arrrandom(n,1,50);   a.println;   var m: =a.max;   if m< > 0 then       for var i: =0 to n-1 do a[i]+=m;   a.println end. тестовые решения: n= 8 37 3 10 29 39 31 40 10 77 43 50 69 79 71 80 50 n= 10 9 47 40 19 20 37 21 39 26 31 56 94 87 66 67 84 68 86 73 78

Если элементы массива идут по возрастанию, то вот так program wstawka; uses crt; const min=1; max=20; type zona=min..max; massiw=array[zona] of integer; var mas: massiw; i,j: zona; a,n,m: integer; t: boolean; begin randomize; clrscr; n: =random(20); writeln('4ucjlo n = ',n);   m: =random(20); writeln('4ucjlo m = ',m); for i: =min to max-2 dobeginmas[i+1]: =mas[i]+random(5); write(mas[i],' '); end; for i: =min to max-2 doif (mas[i]> n) and (t=false) thenbegint: =true; a: =mas[i]; mas[i]: =n; for j: =i+1 to max dobeginn: =mas[j]; mas[j]: =a; a: =n; end; end; for i: =min to max-1 doif (mas[i]> m) and (t=true) thenbegin t: =false; a: =mas[i]; mas[i]: =m; for j: =i+1 to max dobeginm: =mas[j]; mas[j]: =a; a: =m; end; end; writeln; for i: =min to max do write(mas[i],' '); readkey; end.