Другие языки программирования и технологии

помогите решить задачу паскаль срочно нужно ответ напишите

Минимальная сумма-На уроке математике учитель выписал 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
Р)
Роман )))
75
Вот:
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.
Только ввод и вывод данных нужно переделать на файлы!
..
.. ..
59 652
Лучший ответ
условие неисчерпывающее:
- числа поданы, как строка, или матрицей?
- подряд идущие числа.. . что суммировать - все, или определённое количество? или вообще количество слагаемых колеблется?
программа для компа - это не человек, формулировка должна быть более чёткой
Рамиль Абдульманов
Рамиль Абдульманов
7 142
что за Бахытджан? ) откуда парень?
Дмитрий Ефремов
Дмитрий Ефремов
1 092

Похожие вопросы