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

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.