Помощь - Поиск - Пользователи - Календарь
Полная версия: Сумма элементов заданной области матрицы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 убрать и еще самое трудное для меня как контур(область) цветом выделить, как цветом число выделить я знаю, но контур(область) никак не соображу. Если кто сталкивался с таким, подскажите, а то весь инет уже перерыла в поисках, и ничего не нарыла. mega_chok.gif
volvo
А можно уточнить, считать надо сумму только по контуру (то есть, по границе) , или и внутри него тоже?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.