Определить количество положительных и количество отрицательных элементов последовательности - Turbo Pascal
Формулировка задачи:
Задание: Составить программу используя оператор цикла с параметром.
Задача: Задана последовательность из n вещественных чисел. Определить количество положительных
и количество отрицательных элементов последовательности.
Помогите пожалуйста, заранее спасибо.
Решение задачи: «Определить количество положительных и количество отрицательных элементов последовательности»
textual
Листинг программы
program f; const n=10; var i,p,o:integer; s:real; begin p:=0; o:=0; for i:=1 to n do begin read(s); if s>0 then inc(p) else inc(o); end; writeln('Количество положительных = ',p); writeln('Количество отрицательных = ',o); end.
Объяснение кода листинга программы
- В программе объявлены три переменные: i, p и o, которые являются целочисленными типами данных.
- Переменная p инициализируется значением 0, а переменная o - значением 0. Эти значения будут использоваться для подсчета количества положительных и отрицательных элементов соответственно.
- В цикле for происходит чтение значения переменной s с помощью функции read. Значение s затем сравнивается с нулем.
- Если значение s больше нуля, то переменная p увеличивается на единицу. Это означает, что текущий элемент является положительным.
- Если значение s меньше или равно нулю, то переменная o увеличивается на единицу. Это означает, что текущий элемент является отрицательным.
- После завершения цикла for выводятся значения переменных p и o с помощью функции writeln.
- Конечный результат программы - количество положительных и количество отрицательных элементов последовательности.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д