Введите 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). Таким образом, этот код выполняет задачу, описанную в вопросе.

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы