Вычислить значения 36 элементов одномерного целочисленного массива

program lab8;{Сираев А. А. ст.гр. Бст 13-02 вар. 689} 
uses crt; 
type vect=array[1..99] of integer; 
var x: vect; n,a,b,Sarf,max:integer; 
s:real; 
 
{-----------Часть 1--------------} 
procedure vector(n,a,b:integer;var x:vect); 
var i:integer; 
begin 
for i:=1 to n do x:=round((b-a)*random(100)/100+a); 
end; 
 
{-----------Часть 2--------------} 
function sum(n:integer;x:vect):real; 
var i:integer; 
s:real; 
begin 
s:=0; 
for i:=round(n/3)+1 to round(2*n/4) do if x mod 3=0 
then s:=s+x; 
sum:=s/n; 
end; 
 
{-----------Часть 3-------------} 
function mx(n:integer; x:vect):integer; 
var i,mx:integer; 
begin 
mx:=0; 
for i:=1 to n do 
if odd(i) then if x > mx then mx:=x; 
max:=mx 
end{max}; 
 
{-----------Часть 4----------------} 
procedure porjadok(n:integer;var x:vect); 
var i,k,j,c:integer; 
begin 
for i:=1 to (n div 2)-1 do 
if (x mod 3)=0 then 
begin 
k:=i; 
for j:=i+1 to n div 2 do 
if (X[j] mod 2) =0 then 
if abs(X[j])<abs(x[k])>; X:=X[k]; X[k]:=c; 
end; 
end; 
end{porjaok}; 
 
{--------Вывод вектора--------------} 
procedure writevect(n,k:integer; x:vect); 
var i:integer; 
begin 
for i:=1 to n do 
begin 
write(x:5);if i mod round(n/k)=0 then writeln; 
end; 
writeln; 
end {writevect};    
 
{----------Основная программа-----} 
begin 
clrscr; 
write('Введите размерность вектора ');readln(n); 
write('Интервал значений от ');readln(a); 
write('до ');readln(b); 
writeln;writeln(' ':25,'Исходные данные'); 
writeln('Размерность вектора n = ',n); 
writeln('Интервал [',a,',',b,']');writeln; 
writeln(' ':26,'Результаты расчета'); 
randomize; 
vector(n,a,b,x); 
writeln('--------------------Часть 1---------------------------'); 
writeln('Вектор X из ',n,' элементов в интервале [',a,',',b,'], полученных'); 
writeln('при помощи генератора случайных чисел'); 
writevect(n,4,x); 
writeln('--------------------Часть 2---------------------------'); 
writeln('среднеарифметичес-кое значение каждых третьих элементов второй четверти массива'); 
s:=sum(n,x); writeln(' s=',s); 
writeln('--------------------Часть 3---------------------------'); 
writeln('максимальное значение по второй среди четных по значению элементов всего масива '); 
writevect(n,3,x); 
max:=mx(n,x); writeln(' max=',max); 
writeln('--------------------Часть 4---------------------------'); 
writeln('Вектор X с упорядоченными по убыванию убыванию модулей обратных'); 
writeln('каждые третьи элементами элементы первой половины'); 
porjadok(n,x); 
writeln('Упорядоченный вектор X'); 
writevect(n,2,x); 
writeln('----------------Конец задачи-----------------------'); 
readln; // 
end.

program lab8;
  const
    n = 36;
  type
    vect=array[1..n] of integer;
  var 
    x: vect;  
    a,b,Sarf,max:integer;
    s:real; 
 
{-----------Часть 1--------------} 
  procedure vector(n,a,b:integer;var x:vect); 
    var i:integer; 
  begin 
    randomize;
    for i:=1 to n do 
      x[i]:=random(b)-random(-a)-1;
  end; 
 
{-----------Часть 2--------------} 
  function sum(n:integer;x:vect):real; 
    var 
      i,kol:integer;
      s:real; 
  begin 
    s:=0; 
    kol:=0;
    for i:=(round(n/4)+1) to round(n/2) do
      if i mod 3=0
        then begin
          s:=s+x[i];
          kol:=kol+1;
        end;
    sum:=s/kol; 
  end; 
 
{-----------Часть 3-------------} 
  function maxel(n:integer; x:vect):integer; 
    var
      i,mx:integer;
  begin 
    mx:=a; 
    for i:=1 to n do 
      if x[i] mod 2 = 0 
        then if x[i] > mx 
          then mx:=x[i];
    maxel:=mx; 
  end{max}; 
 
{-----------Часть 4----------------} 
{  procedure porjadok(n:integer;var x:vect); 
    var 
      i,k,j,c:integer;
  begin 
    for i:=1 to (n div 2)-1 do 
      if (i mod 3)=0
        then begin 
          k:=i; 
          for j:=i+1 to n div 2 do 
            if (x[j] mod 3) =0 
              then
                //добавь сортировку...
                  end;
        end; 
  end; 
 
 
{--------Вывод вектора--------------} 
  procedure writevect(n,k:integer; x:vect); 
    var 
      i:integer;
  begin 
    for i:=1 to n do begin 
      write(x[i]:5);
      if i mod round(n/k)=0 
        then writeln;
    end; 
    writeln; 
  end {writevect};    
 
{----------Основная программа-----} 
begin 
  //write('Введите размерность вектора ');readln(n); 
  write('Интервал значений от ');
  readln(a);
  write('до ');
  readln(b);
  writeln(' ':25,'Исходные данные');
  writeln('Размерность вектора n = ',n); 
  writeln('Интервал [',a,',',b,']');
  writeln;
  writeln(' ':26,'Результаты расчета'); 
  vector(n,a,b,x); 
  writeln('--------------------Часть 1---------------------------'); 
  writeln('Вектор X из ',n,' элементов в интервале [',a,',',b,'], полученных'); 
  writeln('при помощи генератора случайных чисел'); 
  writevect(n,4,x); 
  writeln('--------------------Часть 2---------------------------'); 
  writeln('среднеарифметичес-кое значение каждых третьих элементов второй четверти массива'); 
  s:=sum(n,x); 
  writeln(' s=',s);
  writeln('--------------------Часть 3---------------------------'); 
  writeln('максимальное значение по второй среди четных по значению элементов всего масива '); 
  writevect(n,3,x); 
  writeln(' max=',maxel(n,x));
 { writeln('--------------------Часть 4---------------------------'); 
  writeln('Вектор X с упорядоченными по убыванию убыванию модулей обратных'); 
  writeln('каждые третьи элементами элементы первой половины'); 
  porjadok(n,x); 
  writeln('Упорядоченный вектор X'); 
  writevect(n,2,x);
 }
  writeln('----------------Конец задачи-----------------------'); 
  readln; // 
end.