Не работает процедура, не понимаю почему:)

[euroyurich]

ребят мне нужно написать процедуру(или функцию если возможно) которая будет менять местами наибольший и наименьший элементы матрицы. вот как я ее написал:

type
massiv=array[1..100,1..100] of integer;

procedure exchange(n:integer;m:integer;a:mass iv);
var i,j,max,min,buf,u,p,z,t:integer;
begin
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do if a[i,j]>max then begin; max:=a[i,j]; u:=i;p:=j; end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do if a[i,j]<min then begin; min:=a[i,j];z:=i;t:=j; end;
buf:=a[u,p];
a[u,p]:=a[z,t];
a[z,t]:=buf;
end;

но при компиляции выдает:"Нельзя преобразовать тип array [1..100] of array [1..100] of integer к array [1..100] of array [1..100] of integer"

почему так? типы же одни и те же.. или я просто чтото не так понимаю?

[whatever]

сильно не вчитывался, но скорее всего

type 
 massiv=array[1..100,1..100] of integer;

 procedure exchange(n:integer;m:integer;VAR a:mass iv);
 var i,j,max,min,buf,u,p,z,t:integer;
 begin
 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do if a[i,j]>max then begin; max:=a[i,j]; u:=i;p:=j; end;
 min:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do if a[i,j]<min then begin; min:=a[i,j];z:=i;t:=j; end;
 buf:=a[u,p];
 a[u,p]:=a[z,t];
 a[z,t]:=buf;
 end;

И на будущее, старайся пользоваться тэгом [CODE], когда вставляешь текст программы в сообщение.

[euroyurich]

теперь вывел "Неправильный тип параметров подпрограммы"

[whatever]

Что впринципе логично, говорю же, не вчитывался.

У тебя massiv=array[1..100,1..100] of integer;

А переменная a:mass iv. Попробуй пробел убрать.

[euroyurich]

это почему то на форуме пробел вставился, в программе у меня его нет

[Pyxy]

помогите пожалуйста
Составить программу вычисления значения выражения k!/m!. Функцию вычисления факториала числа в модуль.

[Pyxy]

помогите пожалуйста
Составить программу вычисления значения выражения k!/m!. Функцию вычисления факториала числа в модуль.

[whatever]

нашел

type 
 massiv=array[1..100,1..100] of integer;

 procedure exchange(n:integer;m:integer;VAR a:mass iv);
 var i,j,max,min,buf,u,p,z,t:integer;
 begin
 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do if a[i,j]>max then begin max:=a[i,j]; u:=i;p:=j; end;
 min:=a[1,1];



 z:=1;
 t:=1;



 for i:=1 to n do
 for j:=1 to m do if a[i,j]<min then begin min:=a[i,j];z:=i;t:=j; end;
 buf:=a[u,p];
 a[u,p]:=a[z,t];
 a[z,t]:=buf;
 end;

и еще после бегинов ";" убрал

P.S. Pyxy, кросавчег, побил все рекорды. Обычные лентяи не хотят писать программы, а суперпродвинутые еще и созадвать отдельные темы :D

[euroyurich]

да с бегинами чет лажанулся)
все равно не компилирует( заходит в процедуру и "Неправильный тип параметров подпрограммы" опять

[whatever]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  type
 massiv=array[1..100,1..100] of integer;

 procedure exchange(n:integer;m:integer;VAR a:massiv);
 var i,j,max,min,buf,u,p,z,t:integer;
 begin
 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do if a[i,j]>max then
 begin
 max:=a[i,j]; u:=i;p:=j;
 end;
 min:=a[1,1];
 z:=1;
 t:=1;
 for i:=1 to n do
 for j:=1 to m do if a[i,j]<min then
 begin
  min:=a[i,j];z:=i;t:=j;
  end;
 buf:=a[u,p];
 a[u,p]:=a[z,t];
 a[z,t]:=buf;
 end;

VAR
  m:massiv;
  i,j:integer;
BEGIN
  for i:=1 to 3 do
    begin
    for j:=1 to 3 do
      begin
        m[i,j]:=random(100);
        write(m[i,j],' ');
      end;
    writeln;
    end;

    writeln;
    writeln;

  exchange(3,3,m);
  for i:=1 to 3 do
  begin
    for j:=1 to 3 do
      begin
        write(m[i,j],' ');
      end;
      writeln;
  end;
  readln






END.

Дэлфи 2009. Все работает.