Написать программу для нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Пожалуйста напишите программу я не могу понять как ее написать!

Решение задачи: «Написать программу для нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел»

textual
Листинг программы
var n,i,a,s:integer;
begin
write('n=');
readln(n);
s:=0;
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  readln(a);
  if a<0 thn s:=s+a;
 end;
write('Сумма отрицательных=',s);
end.

Объяснение кода листинга программы

  1. Создается переменная n типа integer, которая будет хранить количество введенных чисел.
  2. Создается переменная s типа integer, которая будет хранить сумму отрицательных чисел.
  3. Выводится сообщение n=, после чего считывается значение переменной n с клавиатуры.
  4. Выводится сообщение Введите,n,' целых чисел`.
  5. В цикле for i:=1 до n происходит следующее:
    • Считывается значение переменной a с клавиатуры.
    • Проверяется, является ли значение переменной a отрицательным. Если да, то к переменной s прибавляется значение переменной a.
    • Цикл повторяется n раз.
  6. Выводится сообщение Сумма отрицательных=, после чего выводится значение переменной s. Код выполняет задачу нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел.

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

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