Матрица Опции

[volvo]

Я говорил не про maxi и maxj, а про i и j... У тебя же циклы - For i := ... и For j := ...

Насчет того, как описать локально:

function max(A:MyMas):integer;
var i, j: integer; { <--- Это - описание ВНУТРИ функции, следовательно - локальное }
begin
...

[fly]

от что у меня получилось.Ошибки есть?

  Type MyMas = array [1..100,1..100] of integer;
 var
 ms : MyMas;
 n,maxi,maxj,result:integer;
 function max(var A:MyMas):integer;
 var i,j:integer;
 begin
   writeln('vvodite razmer massiva');
   readln(n);
   for i:=1 to n do
  writeln('vvodite',n,'chisel');
    for i:=1 to n do begin
      for j:=1 to n do begin
        Write('...');
        Read(a[i,j]);
      end;
    end;

Сообщение отредактировано: fly - 7.05.2007 21:00

[fly]

С задачей разобрался)
Спасибо всем за помощь)
Особенное спасибо Tan за предоставленный исходник.

Сообщение отредактировано: fly - 7.05.2007 21:04