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

[euroyurich]

большое спасибо! как я понял ошибка была в том что параметр процедуры у меня был описан как massiv, а в основном теле программы я туда совал array

зы а кстати что это за {$APPTYPE CONSOLE}?

[whatever]

Если чесно, задал преподу тот же вопрос еще на первом курсе, про {$APPTYPE CONSOLE}. Ответ был малость расплывчатый: "ну это системная команда, без нее тоже вроде будет работать, но лучше не убирать, а то будут косяки..." Кароче после этого не заморачивался, темболее она пишется сама, когда создаешь Console application :D

[euroyurich]

я просто впервые это вобще вижу тк на ABC пишу

[Defunate]

просто делфи по умолчанию определяет тип приложения

[Pyxy]

Сообщение от 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. Все работает.

спасибо, работает)))))

[whatever]

you're welcome