Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел - Pascal
Формулировка задачи:
Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел.
Решение задачи: «Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел»
textual
Листинг программы
program pr; var i,sum,cout,n:integer; begin sum:=0; cout:=0; for i:=1 to 10 do begin writeln('Введите ',i,' число: '); readln(n); if n<0 then begin sum:=sum+n; cout:=cout+1; end; end; writeln('Количество отрицательных чисел: ',cout); writeln('Сумма отрицательных чисел: ',sum); end.
Объяснение кода листинга программы
Этот код на языке Pascal представляет собой программу для ввода и подсчета десяти чисел, а также для подсчета количества и суммы отрицательных чисел. Переменные в этом коде имеют следующие назначения:
sum
- переменная для хранения суммы всех чисел.cout
- переменная для хранения количества чисел, которые были введены.i
- переменная для представления текущего числа, которое вводится.n
- переменная для хранения числа, которое было введено. Код начинается с объявления этих переменных. Затем он входит в циклfor
, который выполняется 10 раз (отi=1
доi=10
). На каждой итерации цикла пользователю предлагается ввести число, и это число сохраняется в переменнойn
. Если число отрицательное (n<0
), то оно добавляется к сумме (sum
) и к количеству (cout
). После завершения цикла выводится количество чисел, которые были введены (cout
), а также сумма отрицательных чисел (sum
). Таким образом, этот код выполняет задачу, описанную в вопросе.