Двумерные массивы

[Nubik]

Объясните плх алгоритм рабыты программы
И как сделать чтоб проверять значения максимума в указанной зоне матрицы
[][][][][][][][][][]
[] []
[] []
[] []
[] []
[] []
[][][][][][][][][][]
uses crt;
var a:array[1..10,1..10] of integer; q,w,mx:integer;
begin mx:=-MaxInt;

for q:=1 to 10 do begin
for w:=1 to 10 do begin
a[q,w]:=random(99)+1;write(a[q,w]:4);
if mx<a[q,w] then mx:=a[q,w];
end;
writeln;
end;
writeln(mx);

end.

[Chudo4258]

for q:=1 to 10 do begin
for w:=1 to 10 do begin
a[q,w]:=random(99)+1;write(a[q,w]:4);
end;
writeln;
end;

max:=a[1,1];
for q:=1 to 10 do
if (q=1)or(q=10) then
    for w:=1 to 10 do 
      if  a[q,w]> max then max:=a[q,w];
   else 
     for w:=1 to 2 do 
       if  a[q,w]> max then max:=a[q,w];
writeln('max= ',max)

[Базиля]

у тебя матрица заполняется рандомом, т.е. случайным образом матрица(10на10) заполнятеся элементами.
И находится максимум этой матрицы

значения максимума в указанной зоне матрицы

смотря где тебе нужно искать, в какой-то строке или столбце.
если в строке то

writeln('введите номер строки в которой нужно найти максимальный элемент');
readln(q);
max:=a[q,1];
for w:=1 to 10 do
if max<a[q,w] then max:=a[q,w];
writeln('максимум в этой строке=',max);
end.

если же требуется найти в каком-либо столбце то задаешь номер столбца т.е. w и анологично ищешь максимум только циклом проходишь по строкам.

writeln('введите cтолбец в котором нужно искать макс элемент');
readln(w);
max:=a[1,w];
for q:=1 to 10 do
if max<a[q,w] then max:=a[q,w];
writeln('максимум=',max);

end.

тьфу не правильно понял условие :D
а я то думал для чего это:

[][][][][][][][][][]
[] []
[] []
[] []
[] []
[] []
[][][][][][][][][][]

Но все равно, то что я написал думаю тебе будет полезно

[Базиля]

И как сделать чтоб проверять значения максимума в указанной зоне матрицы
[][][][][][][][][][]
[] []
[] []
[] []
[] []
[] []
[][][][][][][][][][]

max:=a[1,1];
for q:=1 to 7 do
begin
if (q=1)or(q=7) then
begin
for w:=1 to 10 do
if a[q,w]>max then 
max:=a[q,w];
end
else
for w:=1 to 2 do
if  a[q,w]> max then 
max:=a[q,w];
end;
writeln('максимум= ',max);

P.S. немного подкорректировал код товарища Chudo4258

[Nubik]

СПасиб парни) буду разбираться=)