Вычислить z=x[max]-y[min]/2

program pgg; {название программы}
uses crt;                 { объявление используемого модуля управления экраном }
 
const                      {раздел описания констант}
n=50;                     { переменная n константа, равная 50}
m=40;                    { переменная m константа, равная 40}
 
type                                 {объявление создаваемого типа}
c=array[1..n] of integer; {c- имя типа, представленного в виде массива целых 
                                         чисел, размерностью n}
 
var                          { раздел описания переменных }
x:c;                         {переменная х типа с}
y:c;                         {переменная y типа с}
i,max,min:integer; {переменные целого типа}
z:real;                     {переменная вещественного типа}
 k:boolean;             {переменная логического типа}
 
procedure mm(var m:integer;a:c;n1:integer;l:boolean);{объявление процедуры mm}
 var          { раздел описания внутренних переменных процедуры }
j:integer; {переменная целого типа}
begin   {операторные скобки или составные  операторы «начало» процедуры}
m:=a[1];{переменной m присваивается значение первого элемента массива a}
for j:=2 to n1 do {оператор цикла со счётчиком}
begin            {операторные скобки или составные  операторы «начало» цикла}
if (l=true)  then {Проверяется переменная l, если она  равна true,  то 
                            выполняется следующая инструкция}
begin                  {операторные скобки или составные  операторы «начало»}
if (a[j]>m) then {проверяется элемент массива  a , если он больше, чем  
                            m, то выполняется следующая инструкция}
 m:=a[j];             { m   присваивается значение j-ого элемента массива  a }
end                     { операторные скобки или составные операторы  «конец»}
else                     {иначе выполняется другая инструкция }
if(a[j]<m) then   {проверяется j-ый элемент массива  a , если он меньше, чем  
                              m, то выполняется следующая инструкция }
m:=a[j];               { m   присваивается значение j-ого элемента массива  a }
end; { операторные скобки или составные операторы  «конец» цикла}
end; { операторные скобки или составные операторы  «конец» процедуры}
 
begin             {операторные скобки или составные  операторы «начало» }
textcolor(0); {процедура, которая задаёт цвет символов,  в данном случае     
                      «чёрный» }
textbackground(7); {процедура, которая задаёт цвет фона для текста, в данном        
                                  случае «серый»}
clrscr;                      { процедура очистки экрана }
for i:=1 to n do        {оператор цикла со счётчиком}
read(x[i]);                {Процедура для ввода данных}
for i:=1 to  m do       {оператор цикла со счётчиком}
read(y[i]);                 {Процедура для ввода данных}
k:=true;                     {переменной k присваивается значение true}
mm(max,x,n,k);        {процедура, которая находит максимальный или минимальный элемент массива, в данном случае максимальный}
k:=false;                   {переменной k присваивается значение false }
mm(min,y,m,k);       {процедура, которая находит максимальный или минимальный элемент массива, в данном случае минимальный}
z:=(max-min)/2;       {вычисляем значение переменной z}
writeln('z=',z:7:1, 'max= ',max, 'min= ', min); {выводим на экран значение переменной z, максимальный элемент массива х и минимальный элемент массива у}
readkey; { возвращает символ, соответствующий нажатой  клавиши }
end. { операторные скобки или составные операторы  «конец» программы }

program pgg; {название программы}
uses crt;                 { объявление используемого модуля управления экраном }
 
const                      {раздел описания констант}
n=5;                     { переменная n константа, равная 50, при тестировании делай типа 5}
m=4;                    { переменная m константа, равная 40, а эту типа 4}
 
type                                 {объявление создаваемого типа}
c=array[1..n] of integer; {c- имя типа, представленного в виде массива целых
                                         чисел, размерностью n}
{процедура нахождения макс 1 массива и мин 2-го}
procedure mm(var mx,mn:integer;a,b:c);
var j:integer;
begin
mx:=a[1];{находим макс}
for j:=2 to n do
if (a[j]>mx) then  mx:=a[j];
mn:=b[1]; {находим мин}
for j:=2 to m do
if b[j]<mn then mn:=b[j];
end;
 
var                          { раздел описания переменных }
x,y:c;                         {переменная х типа с}
i,max,min:integer; {переменные целого типа}
z:real;                     {переменная вещественного типа}
begin             {операторные скобки или составные  операторы «начало» }
textcolor(0); {процедура, которая задаёт цвет символов,  в данном случае
                      чёрный }
textbackground(7); {процедура, которая задаёт цвет фона для текста, в данном
                                  случае «серый»}
clrscr;
writeln('Введите элементы массива Х:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);
 end;
clrscr;
writeln('Введите элементы массива Y:');
for i:=1 to  m do
 begin
  write('y[',i,']=');
  readln(y[i]);
 end;
clrscr;
writeln('Массив Х:');
for i:=1 to n do
write(x[i]:4);
writeln;
writeln;
writeln('Массив Y:');
for i:=1 to n do
write(y[i]:4);
writeln;
writeln;
mm(max,min,x,y);        {процедура, которая находит максимальный в 1 массиве и минимальный во 2 }
z:=max-min/2;       {вычисляем значение переменной z}
writeln('z=',z:7:1,'  max=',max,'  min=', min); {выводим на экран значение переменной z, максимальный элемент массива х и минимальный элемент массива у}
readkey; { возвращает символ, соответствующий нажатой  клавиши }
end. { операторные скобки или составные операторы  «конец» программы }