Найти минимальное число k, такое, что сумма первых k элементов массива превосходит заданное число

@marsel17 · Регистрация: 19.10.2016

Author24 — интернет-сервис помощи студентам

написать программу, выполняющую поиск такого минимального k, что сумма первых k элементов массива превосходит заданное число s

@bormant · 19.10.2016, 21:10

Pascal

Write('S: '); ReadLn(s);
q:=0; k:=0;
while (k<n) and (q<=s) do begin
  Inc(k); q:=q+a[k];
end;
if q<=s then WriteLn('Сумма всех элементов ',q,' меньше ',s)
else WriteLn(k);

Добавлено через 2 минуты
или

Pascal

Write('S: '); ReadLn(s);
q:=0; k:=0;
repeat
  Inc(k); q:=q+a[k];
until (k=n) or (q>s) ;
if q>s then WriteLn(k)
else WriteLn('Сумма всех элементов ',q,' меньше ',s);

@marsel17 -1 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 23
		1
	Найти минимальное число k, такое, что сумма первых k элементов массива превосходит заданное число 19.10.2016, 20:24. Показов 2068. Ответов 1 Метки нет (Все метки) написать программу, выполняющую поиск такого минимального k, что сумма первых k элементов массива превосходит заданное число s 0

	19.10.2016, 21:10

Найти минимальное число k, такое, что сумма первых k элементов массива превосходит заданное число

Решение