А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 -