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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2010, 22:23   #1
denis2010
Пользователь
 
Регистрация: 16.01.2010
Сообщений: 11
Восклицание программа в паскале

Вряд выписано N чисел(не по-порядку), которые записанны в массив x. Есть лист бумаги с окошком длинной m и этот листок двигают по этому массиву. надо бы программу, которая нашла бы, на каком участке длинной m самая большая сумма. n и m надо вводить
denis2010 вне форума Ответить с цитированием
Старый 20.01.2010, 23:33   #2
Базиля
Участник клуба
 
Аватар для Базиля
 
Регистрация: 03.12.2009
Сообщений: 1,013
По умолчанию

576079457 аська, пиши помогу
Базиля вне форума Ответить с цитированием
Старый 21.01.2010, 08:24   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
denis2010
Что-то ниразу не понятная задача...
Сам то как ее понимаешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.01.2010, 08:59   #4
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Код:
Summ:=0;
For i:=1 to m-1 do
Summ:=x[i]+summ;
Im:=1;
For i:=1 to n-m+1 do begin
sum:=0;
For j:=i to i+m-1 do
sum:=sum+x[j];
if sum>SUMM THEN BEGIN SUMM:=sUMM;iM:=I;end;end;
Writeln('[',im,';',im+m-1,']=',summ);
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа в паскале denis2010 Помощь студентам 9 17.01.2010 01:11
Программа на паскале Absent Помощь студентам 3 28.05.2009 17:14
Программа в паскале )) alien608 Паскаль, Turbo Pascal, PascalABC.NET 2 29.01.2009 18:41
Программа в паскале Batonchik Помощь студентам 9 18.01.2009 15:07
программа в Паскале vitekbest Помощь студентам 4 17.12.2007 08:33