Дано натуральное число n,последовательность целых чисел a1,.составить программу ,которая последовательно прибавляя членв последовательности, выводит результат,когда сумма впервые превышает число n. если сумма всех членов последовательности не превышает число n, выведите об этом сообщение

231

485

Посмотреть ответы 2

Ответы на вопрос:

MaxDeep

Информатика

4,6(61 оценок)

Const n = 5; var arr: array [1..n] of integer; i, n1, sum: integer; begin write('n = '); readln(n1); for i : = 1 to n do begin write('a[', i, '] = '); readln(arr[i]); end; i : = 1; sum : = 0; while (sum < = n1) and (i < = n) do begin sum : = sum + arr[i]; i : = i + 1; end; if sum > n1 then writeln(sum) else writeln('summa not grether then n'); end.