Получить сумму всех членов последовательности - Pascal ABC
Формулировка задачи:
Даны натуральное число n, целые числа a1, x1, ... , xn. Если в последовательности x1, ... , xn есть хотя бы один член, равный a, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -10.
Решение задачи: «Получить сумму всех членов последовательности»
textual
Листинг программы
var n,a,x,i,k,s:byte;
begin
write('Введите размер последовательности n=');
readln(n);
write('Введите число a=');
readln(a);
k:=0;
s:=0;
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
begin
readln(x);
if k=1 then s:=s+x
else if x=a then k:=1;
end;
if k=0 then writeln('-10')
else writeln(s);
end.
Объяснение кода листинга программы
- Создается переменная n типа byte, которая будет хранить введенное пользователем число.
- Создается переменная a типа byte, которая будет хранить введенное пользователем число.
- Создается переменная x типа byte, которая будет хранить введенное пользователем число.
- Создается переменная i типа byte, которая будет использоваться как счетчик для цикла.
- Создается переменная k типа byte, которая будет использоваться для отслеживания первого введенного числа.
- Создается переменная s типа byte, которая будет использоваться для хранения суммы введенных чисел.
- Выводится сообщение с просьбой ввести размер последовательности.
- Выводится сообщение с просьбой ввести число a.
- Инициализируются переменные k и s нулевыми значениями.
- Выводится сообщение с просьбой ввести n целых чисел.
- Начинается цикл for, который выполняется n раз.
- В каждой итерации цикла считывается введенное пользователем число и сохраняется в переменной x.
- Если k равно 1, то к переменной s прибавляется значение x.
- Если значение x равно a, то устанавливается значение k равным 1.
- После завершения цикла выводится сообщение в зависимости от значения переменной k.
- Если k равно 0, то выводится
-10. - Иначе выводится сумма введенных чисел, хранящаяся в переменной s.