Процедуры, Найти Z. Опции

[Desktop II]

Дана задача:
Найти z=(xmax-ymin)/2, где xmax - максимальное число массива A[1..5];
ymin - минимальный елемент масива B[1..5];

Что то не выходить.

program pr12_1;
const n=5;
  type
  mas=array[1..n] of integer;
    var
     mas_a,mas_b:mas;
      z,y:integer;
     procedure masv(const m1,m2:mas; var k1,k2:integer);
     var
     i,xmax:integer;
     ymin:integer;
        Begin
        xmax:=m1[i];
        for i:=1 to n do
        if m1[i]>xmax then
        xmax:=m1[i];
        ymin:=m2[i];
        for i:=1 to n do
        if m2[i]>ymin then
        ymin:=m2[i];
        end;
   begin
   writeln('Vvedite elem masiva Mas_A');
   for y:=1 to n do
     begin
     write('Vvesti element N',y);
     readln(mas_a[y]);
     end;
   writeln('Vvedite elem masiva Mas_B');
   for y:=1 to n do
     begin
     write('Vvesti element N',y);
     readln(mas_b[y]);
     end;
     masv(mas_a,y);
     masv(mas_b,y);
   z:=(xmax-ymin)/2;
   writeln('Z = 'z);
   readln;
   end.

Укажите где я допустил ошибку. В строке masv(mas_a,y); пишет "Тип неверный", что надо исправить.

[Ozzя]

program pr12_1;
const
  n=5;
type
  mas=array[1..n] of integer;
var
  mas_a,mas_b:mas;
  y:integer;
  z: real;
  ymin,xmax:integer;

procedure masv(m1,m2 : mas; var xmax, ymin :integer);
var
  i:integer;
Begin
  xmax:=m1[1];
  ymin:=m2[1];
  for i:=2 to n do
    if m1[i]>xmax then
     xmax:=m1[i];
    if m2[i]<ymin then
      ymin:=m2[i];
end;

begin
  writeln('Vvedite elem masiva Mas_A');
  for y:=1 to n do
    begin
      write('Vvesti element N',y);
      readln(mas_a[y]);
    end;
   writeln('Vvedite elem masiva Mas_B');
   for y:=1 to n do
     begin
       write('Vvesti element N',y);
       readln(mas_b[y]);
     end;
   masv(mas_a,mas_b,xmax,ymin);
   z:=(xmax-ymin)/2;
   writeln('Z = ',z);
   readln;
end.

[Desktop II]

Спасибо. Теперь понятно где были ошибки.

[Гость]

такая прблема:пишу пару функций и потом прцедуру,в которой при каждом вызове входным параметром является одна из вышенаписанных функций-выдает ошибку в процедуре в месте исп-ния функции

дублирование, зачем надо было еще и тему -то такую создавать ? Удалил

Сообщение отредактировано: klem4 - 3.04.2006 12:36

[мисс_граффити]

кинь код...
или хотя бы напиши, какую ошибку выдает.