Вычислить значения 36 элементов одномерного целочисленного массива - PascalABC.NET - Ответ 5360484

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.