Написать программу поиска значения максимального элемента массива

Const n=10; var a: array[1..n] of integer; i,max: integer; begin   randomize;   for i: =1 to n do a[i]: =random(201)-100;   for i: =1 to n do write(a[i],' ');   writeln;   max: =a[1];   for i: =2 to n do     if a[i]> max then max: =a[i];   writeln('max=',max); end.

//1 < html> < head> < /head> < body> < span id='nums'> < /span>   < /body> < script type="text/javascript">   var b=true;   for(var i=132; i< 723; i++)   {for(var j=2; j< =i/2+i%2; j++)     if(i%j==0)     b=false;   if(b==true)     document.getelementbyid('nums').innerhtml=document.getelementbyid('nums').innerhtml+' '+i;     //это одна строка     b=true; }   < /script> < /html> //2 < html> < head> < /head> < body> < span id='nums'> array: < /span>   < /body> < script type="text/javascript">   var ar=[];   var sum=0;   var buf;   for(var i=0; i< 5; i++)   {ar[i]=math.random()*9+1;     document.getelementbyid('nums').innerhtml=document.getelementbyid('nums').innerhtml+ar[i]+' '; sum+=ar[i]; }   document.getelementbyid('nums').innerhtml+=" arithmetic mean="+sum/5;   for(var i=0; i< 4; i++)   for(var j=i+1; j< 5; j++)     if(ar[i]> ar[j])     {buf=ar[i];     ar[i]=ar[j];     ar[j]=buf; }   document.getelementbyid('nums').innerhtml=document.getelementbyid('nums').innerhtml+" median="+ar[2];   var modar=[];   for(var i=0; i< 5; i++)   modar[i]=0;   for(var i=0; i< 5; i++)   for(var j=0; j< 5; j++)     if((i! =j)& & (ar[i]==ar[j]))     modar[i]++;   var max=-1;   var maxi=-1;   for(var i=0; i< 5; i++)   if(max< modar[i])     {max=modar[i];     maxi=i; }   document.getelementbyid('nums').innerhtml=document.getelementbyid('nums').innerhtml+" mode: ";   for(var i=0; i< 5; i++)   if((modar[i]==max) & & (ar[i]! =ar[i-1]))   document.getelementbyid('nums').innerhtml=document.getelementbyid('nums').innerhtml+ar[i]+' ';   < /script> < /html>

Алг массив нач   цел n = 10   целтаб a[1: n]   цел i, b     нц для i от 1 до n     a[i] : = irnd(100)     вывод a[i], " "   кц   вывод нс     нц для i от 1 до div(n,2)     b : = a[2*i-1]     a[2*i-1] : = a[2*i]     a[2*i] : = b     кц   кц     нц для i от 1 до n     вывод a[i], " "   кц кон пример: 37 96 82 5 31 85 85 87 80 3896 37 5 82 85 31 87 85 38 80