ну вот, вроде работает....
| Код |
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.
|
|