квадратная матрица..., нужен алгоритм решения Опции

[MI666]

По заданной квадратной матрице размером 10*10 построить вектор длиной 19, элементы которого - максимумы элементов диагоналей, паралельных главной диагонали.

thanks...

[virt]

Код

program maxins_on_diags;
var a:array[1..10,1..10]of integer;
   i,j,k:integer;
   b:array[1..19]of integer;
   v:integer;

begin
  assign(input,'gdiagmax.in');reset(input);
  assign(output,'gdiagmax.out');rewrite(output);
  for i:=1 to 10 do
     for j:=1 to 10 do
        read(a[i,j]);
  for k:=1 to 10 do
  begin
     v:=-maxint-1;
     for i:=1 to 11-k do
        if a[i,k+i-1] > v then v:=a[i,k+i-1];
     b[11-k]:=v;
     v:=-maxint-1;
     for i:=1 to 11-k do
        if a[k+i-1,i] > v then v:=a[k+i-1,i];
     b[9+k]:=v;
  end;
  for i:=1 to 19 do
     write(b[i],' ');
end.