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

[avp91]

создать матрицу А[1...10,1...10] из целых чисел. Сформировать массив,элементы которого максимальны элементы диагоналей,параллельных главной диагонали

[Stilet]

Подскажу так:

var a:array [1..10,1..10] of byte; q,w:byte;
 m:array[1..2] of byte;
begin
 for q:=1 to 10 do begin
  for w:=1 to 10 do begin
    Readln(a[q,w]);
    {Проверяем на диагональность}
    if (q=w)and(m[1]<a[q,w]) then  m[1]:=a[q,w]
   {Насчет побочки проверять нужно}
    if ((10-q)=w)and(m[2]<a[q,w]) then  m[2]:=a[q,w]
  end;
 end;
end.

[avp91]

спасибо!!!