Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.12.2013, 19:44   #1
sani17
Новичок
Джуниор
 
Регистрация: 15.12.2013
Сообщений: 1
Лампочка Не могу решить задачу!!!Help!

Написать программу на языке Pascal для решения задачи:

Задан двумерный массив размерностью NxM. Найти в нём подмассив размерностью 3х3, сумма элементов которого максимальна. N и M могут быть не кратны трём.
sani17 вне форума
Старый 15.12.2013, 20:08   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
for i:=1 to N-2 do
  for j:=1 to M-2 do begin
    s:=0;
    for k:=i to i+2 do
      for l:=j to j+2 do Inc(s,mas[k,l]);
    if ((i=1) and (j=1)) or (s>MaxS) then begin
      MaxS:=s;
      i1:=i;
      j1:=j;  
    end; 
  end;
// в MaxS - максимальная сумма
// в i1,j1 - координаты левого верхнего угла найденного подмассива
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу решить задачу rororo Паскаль, Turbo Pascal, PascalABC.NET 4 22.12.2012 16:04
Не могу решить задачу elvira_seilhanova Visual C++ 1 03.04.2012 07:43
Не могу решить задачу.. super3994 Помощь студентам 9 11.11.2011 22:50