VPF::[Pascal] Программа в паскале связанная с массивом

denis2010

Дата 20.1.2010, 23:16 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.1.2010

Репутация: нет
Всего: нет

Вряд выписано N чисел(не по-порядку), которые записанны в массив x. Есть лист бумаги с окошком длинной m и этот листок двигают по этому массиву. надо бы программу, которая нашла бы, на каком участке длинной m самая большая сумма. n и m надо вводить?

~FoX~

Дата 21.1.2010, 10:38 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68

denis2010, http://forum.vingrad.ru/forum/Vingrad-help-center.html

--------------------

…множественность никогда не следует полагать без необходимости…

ClrScr

Дата 22.1.2010, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 22.1.2010

Репутация: нет
Всего: нет

ну вот, вроде работает....

Код


uses crt;
var a:array[1..1000] of integer;
    i,m,max,k,j,x,n:integer;
      procedure input;
      begin
      for i:=1 to n do
      begin
      a[i]:=random(100);
      write(a[i],' ');
      end;
      end;
begin
write('Введите размерность массива = ');
read(n);
x:=1;
clrscr;
input;
writeln;
write('Длина окошка (<',n,') = ');
readln(m);
for i:=1 to m do
max:=max+a[i];
for i:=1 to n-m do
begin
k:=0;
for j:=i to i+m-1 do
k:=k+a[j];
if k>max
then
begin
max:=k;
x:=i;
end;
end;
writeln('Самая большая сумма на участке с ',x,' по ',x+m-1,' элементы включительно');
writeln('Эта сумма равна ',max);
end.

Это сообщение отредактировал(а) Rrader - 5.2.2010, 12:26

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »