Сумма элементов заданной области матрицы, (разделено) Опции

[albina_ivanova]

Всем привет! Искала решение вот такой задачи : Вывести на экран матрицу целых двухзначных чисел размером 20 строк на 20 столбцов. Выделить в матрице цветом заданный контур. Вычислить сумму чисел в заданном контуре. Найти максимальное из чисел. Контур задается следующими элементами:
А3,1 - А1,3 - А18,20 - А20,18

и наткнулась на ваш форум. Мое решение пока имеет вид :

program Max;
const n = 20;
var
  A : array[1..n,1..n] of Integer;
  i,j,s: Integer;
     begin
            Randomize;
        for i:=1 to n do begin
           for j:=1 to n do begin
           A[i,j] := Random(99-10+1)+10;
           Write(A[i,j]:5);
           end;
        WriteLn;
     end;
     s:=0;
for i:=1 to n do
for j:=1 to n do s:=s+a[i,j];
s:=s-a[1,1]-a[1,2]-a[2,1]-a[20,20]-a[20,19]-a[19,20];
writeln('Сумма чисел в заданном контуре ',s);
end.

и дальше никак не могу сообразить. Понимаю, что мое решение немного глупое, поэтому пыталась по аналогии с самой первой задачей сделать, но не соображу как div убрать и еще самое трудное для меня как контур(область) цветом выделить, как цветом число выделить я знаю, но контур(область) никак не соображу. Если кто сталкивался с таким, подскажите, а то весь инет уже перерыла в поисках, и ничего не нарыла.

Сообщение отредактировано: volvo - 15.05.2010 12:51