Определить количество положительных и количество отрицательных элементов последовательности - 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.

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

  1. В программе объявлены три переменные: i, p и o, которые являются целочисленными типами данных.
  2. Переменная p инициализируется значением 0, а переменная o - значением 0. Эти значения будут использоваться для подсчета количества положительных и отрицательных элементов соответственно.
  3. В цикле for происходит чтение значения переменной s с помощью функции read. Значение s затем сравнивается с нулем.
  4. Если значение s больше нуля, то переменная p увеличивается на единицу. Это означает, что текущий элемент является положительным.
  5. Если значение s меньше или равно нулю, то переменная o увеличивается на единицу. Это означает, что текущий элемент является отрицательным.
  6. После завершения цикла for выводятся значения переменных p и o с помощью функции writeln.
  7. Конечный результат программы - количество положительных и количество отрицательных элементов последовательности.

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

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