Program MInarr;
Uses Crt;
Const
n = 5; m = 8;
Type
arr = array [1..100] of integer;
Var
x1,x2 : arr;
z : real;
Procedure InPut(var a : arr;
n : byte);
Var i : byte;
Begin
For i := 1 to n do
read(a[i]);
End;
Function Min(a : arr;
n : byte) : integer;
Var i,j : byte;
Begin
j := 1;
For i := 2 to n do
If a[j] > a[i] Then j := i;
Min := a[j];
End;
BEGIN
ClrScr;
Writeln('Введите элементы 1-го массива(',n,'):'); InPut(x1,n);
Writeln('Введите элементы 2-го массива(',m,'):'); InPut(x2,m);
z := (Min(x1,n) + Min(x2,m))/2;
Writeln('z = ',z : 0:3);
Readkey;
END.