uses GraphABC;var a:array[1..10,1..10] of integer;x,y,n,max,min:integer;beginmax:=a[1,1];//3for x:=3 to 10 dofor y:=3 to 10 do begina[x,y]:=random(100);textout(x*20,y*20,a[x,y]);end;for x:=4 to 10 dofor y:=4 to 10 do beginif a[x,y]>max thenmax:=a[x,y];end;//writelnwriteln('Max nr in ',max);
end.
