Определить количество положительных и количество отрицательных элементов последовательности - Turbo Pascal

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

Задание: Составить программу используя оператор цикла с параметром. Задача: Задана последовательность из n вещественных чисел. Определить количество положительных и количество отрицательных элементов последовательности. Помогите пожалуйста, заранее спасибо.

Код к задаче: «Определить количество положительных и количество отрицательных элементов последовательности - Turbo Pascal»

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.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы