2 задачи на процедуры и функции

[KulOle]

№1! Вычислить Z=Xmax-Ymin/2,Xmax - максимальный элемент массива X(50); Ymin - минимальный элемент массива Y(40). Xmax и Ymin вычислять в однородной подпрограмме при помощи функции.


№2! Вычислить Z= (Xm1+Xm2)/2, где Xm1 и Xm2 - наименьшие элементы массивов X1(70) , X2(80).Сделать это с помощью процедур.

[Викдон]

1)

Const n=50;m=40;
Type
  X=array[1..n] of integer;
  Y=array[1..m] of integer;
var Mas:X;
    Mas2:Y;
    i:integer;
    Z:real;

 Function max (Massiv:X;g:integer):integer;
  var i,a:integer;
  begin
   a:=Massiv[1];
   for i:=1 to g do
    if Massiv[i]>a then
      a:=Massiv[i];

  max:=a;
  end;

  Function min (Massiv:Y;g:integer):integer;
  var i,a:integer;
  begin
   a:=Massiv[1];
   for i:=1 to g do
    if Massiv[i]<a then
      a:=Massiv[i];

  min:=a;
  end;

 begin
  writeln('Массив Х:');
  for i:=1 to 50 do
   begin
    Mas[i]:=Random(32000);
    write(Mas[i],' ');
   end;
   writeln;

  writeln('Массив Y:');
  for i:=1 to 40 do
   begin
    Mas2[i]:=Random(32000);
    write(Mas2[i],' ');
   end;
  writeln;
   Z:=max(Mas,n)+min(Mas2,m)/2;
  write('Z= ',Z);
  readln;
 end.

[Викдон]

2)

uses crt;
Const n=70;m=80;
Type
  X=array[1..n] of integer;
  X2=array[1..m] of integer;
var Mas:X;
    Mas2:X2;
    i,chislo,chislo2:integer;


Procedure min (Massiv:X;g:integer;var chislo:integer);
  var i:integer;
  begin
   chislo:=Massiv[1];
   for i:=1 to g do
    if Massiv[i]<chislo then
      chislo:=Massiv[i];
  end;

Procedure min2 (Massiv:X2;g:integer;var chislo2:integer);
  var i:integer;
  begin
   chislo2:=Massiv[1];
   for i:=1 to g do
    if Massiv[i]<chislo2 then
      chislo2:=Massiv[i];
  end;


 begin
  clrscr;
  writeln('Массив Х:');
  for i:=1 to n do
   begin
    Mas[i]:=Random(32000);
    write(Mas[i],' ');
   end;
   writeln;

  writeln('Массив X2:');
  for i:=1 to m do
   begin
    Mas2[i]:=Random(32000);
    write(Mas2[i],' ');
   end;
  writeln;
    Min(Mas,n,chislo);
    Min2(Mas2,m,chislo2);


  write('Z= ',(chislo+chislo2)/2);
  readln;
 end.