Процедура. ПАскаль

[Elena04]

Помогите пожалуйста решить задачу только через процедуру:
1. Вычислить z=Xmax+Ymin/2, где Xmax- максимальный элемент массива X(n); Ymin - минимальный элемент массива Y(n). Элементы Xmax и Ymin вычислить одной процедурой.

[ByAlex]

Сообщение от Elena04

Помогите пожалуйста решить задачу только через процедуру:
1. Вычислить z=Xmax+Ymin/2, где Xmax- максимальный элемент массива X(n); Ymin - минимальный элемент массива Y(n). Элементы Xmax и Ymin вычислить одной процедурой.

Держи!

uses
  crt;
const
  n=5;
var
  X,Y:array[1..n] of integer;
  i, Ymin, Xmax:integer;
  Z:real;
procedure findXmaxYmin;
begin
  XMax:=X[1];
  YMin:=Y[1];
  for i := 1 to n do
  begin
    if Xmax<X[i] then
      Xmax:=X[i];
    if Ymin>Y[i] then
      Ymin:=Y[i];
  end;
end;
procedure CalculateZ;
begin
  Z:=Xmax+Ymin/2;
end;
begin
  writeln('Vvedite znacheniya massivov!');
  write('Massive X[',n,'] = ');
  for i := 1 to n do
    read(X[i]);
  writeln;
  write('Massive Y[',n,'] = ');
  for i := 1 to n do
    read(Y[i]);
  writeln;
  findXmaxYmin;
  CalculateZ;
  write('Result: Z = ',z:4:2);
  readln;
  readln;
end.