Всем привет! Искала решение вот такой задачи : Вывести на экран матрицу целых двухзначных чисел размером 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.
А можно уточнить, считать надо сумму только по контуру (то есть, по границе) , или и внутри него тоже?