Уравнение с массивом

[KulOle]

Вычислить Z= (Xm1+Xm2)/2, где Xm1 и Xm2 - наименьшие элементы массивов X1(70) , X2(80).

[Kostia]

program Project1;
uses crt;
var
  x1: array[1..70]of integer;
  x2: array[1..80]of integer;
  xm1,xm2: integer;
  i: integer;
  z: real;
begin
  clrscr;
  randomize;
  
  for i:=1 to 70 do
    x1[i]:=-100+random(201);
  for i:=1 to 80 do
    x2[i]:=-100+random(201);

  xm1:=maxint;
  for i:=1 to 70 do
    if xm1>x1[i] then xm1:=x1[i];
  xm2:=maxint;
  for i:=1 to 80 do
    if xm2>x2[i] then xm2:=x2[i];
  
  z:=(xm1+xm2)/2;
  
  writeln(z:2:2);
  readln();
end.

[KulOle]

Большое спасио