Другие языки программирования и технологии
помогите решить задачу паскаль срочно нужно ответ напишите
Минимальная сумма-На уроке математике учитель выписал N чисел,сидевший на задней парте Бахытжан задумался а какая будет минимальная сумма подряд идуших цифр,помогите Бахытжану , напишите программу которая вычислит нужную сумму Формат входных данных µпервая строка входного файла модержит n-количество чисел(1<=n<=1000) Во второй строке задаються n чисел каждое из которых по модулю не превосходит 1000 000 000 Формат выходных данных -выведите минимальную сумму подряд идуших чисел Пример F.in(7-5 10 -2 4 -7 1) F.out (-8) коментраий - минимальная сумма подряд идуших чисел начинается с позиций 3 и заканчивается позицей 6:(-2)+(-3)+4+(-7)=-8
Вот:
const
K = 100;
var
V : array [1..1000] of Longint;
N, L, P : Word;
S, Smin : Longint;
Pmin, Lmin : Word;
begin
Randomize; for N := 1 to K do begin V[N] := Random(201) - 100; Write(V[N], ' '); end; WriteLn;
Smin := V[1]; Pmin := 1; Lmin := 1;
for L := 1 to K do { длина списка от 1 до K }
for P := 1 to K+1-L do { начальная позиция списка от 1 до последней возможной позиции }
begin
S := 0;
{Write(L, ':');} for N := P to P+L-1 do begin {Write(V[N], ' ');} S := S + V[N]; end; {WriteLn;}
if S < Smin then begin Smin := S; Pmin := P; Lmin := L; end;
end;
WriteLn('Минимальная сумма = ', Smin);
Write(Lmin, ':'); for N := Pmin to Pmin+Lmin-1 do begin Write(V[N], ' '); end; WriteLn;
end.
Только ввод и вывод данных нужно переделать на файлы!
const
K = 100;
var
V : array [1..1000] of Longint;
N, L, P : Word;
S, Smin : Longint;
Pmin, Lmin : Word;
begin
Randomize; for N := 1 to K do begin V[N] := Random(201) - 100; Write(V[N], ' '); end; WriteLn;
Smin := V[1]; Pmin := 1; Lmin := 1;
for L := 1 to K do { длина списка от 1 до K }
for P := 1 to K+1-L do { начальная позиция списка от 1 до последней возможной позиции }
begin
S := 0;
{Write(L, ':');} for N := P to P+L-1 do begin {Write(V[N], ' ');} S := S + V[N]; end; {WriteLn;}
if S < Smin then begin Smin := S; Pmin := P; Lmin := L; end;
end;
WriteLn('Минимальная сумма = ', Smin);
Write(Lmin, ':'); for N := Pmin to Pmin+Lmin-1 do begin Write(V[N], ' '); end; WriteLn;
end.
Только ввод и вывод данных нужно переделать на файлы!
условие неисчерпывающее:
- числа поданы, как строка, или матрицей?
- подряд идущие числа.. . что суммировать - все, или определённое количество? или вообще количество слагаемых колеблется?
программа для компа - это не человек, формулировка должна быть более чёткой
- числа поданы, как строка, или матрицей?
- подряд идущие числа.. . что суммировать - все, или определённое количество? или вообще количество слагаемых колеблется?
программа для компа - это не человек, формулировка должна быть более чёткой
что за Бахытджан? ) откуда парень?
Похожие вопросы
- Помогите решить задачу Паскаль
- Помогите решить задачу паскаль (за вознаграждение)
- Помогите решить задачу ПАСКАЛЬ!!!
- Помогите решить задачу на Турбо паскале
- Помогите решить задачи по Паскалю
- помогите решить задачу на паскале: напечатать "столбиком" значения sin2, sin3, ..sin 20.
- Народ! Помогите решить задачи на языке паскаль. Очень срочно надо! Буду рада решению хотя бы одной из списка=)
- Помогите решить задачу в паскале
- Помогите решить задачу на языке Паскаль. Найти сумму всех чётных чисел от 1 до 1000 (задачу решить 2 способами)
- Помогите решить задачу на паскале