Дано натуральное число N,последовательность целых чисел A1,A2,...An.Составить программу ,которая последовательно прибавляя членв последовательности, выводит результат,когда сумма впервые превышает число N. Если сумма всех членов последовательности не превышает число N, выведите об этом сообщение
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Напишите на паскале. Задание: Найти максимальный из элементов массива A[1 .. N],кратных пяти....
Информатика
Выбери предметы или существа. Нарисуй их и придумай о каждом загадку. заполни таблицы....
Информатика
КАК УМНОЖИТЬ ДВОИЧНЫЕ ЧИСЛА ...
Информатика
ПОМОГИТЕ!!!!!!НУЖНО СОСТАВИТЬ ПРОГРАММУ...
Список предметов
