В числовой последовательности из N произвольных вещественных чисел определить количество отрицательных элементов

Это Паскаль, нужна программа)

Question

Информатика

Мавродий

15 апреля, 05:27

В числовой последовательности из N произвольных вещественных чисел определить количество отрицательных элементов

Это Паскаль, нужна программа)

+2

Ответы (1)

Знаете ответ на вопрос?

Нилла · Answer 1

Если не то, что нужно напиши мне!

var a, b, n, c:integer;

Begin

readln (n) ;

a:=0;

for c:=1 to n do

begin

readln (n) ;

If n<0 then

n:=1 else n:=0;

a:=a+n;

end;

writeln (a) ;

end.

В числовой последовательности из N произвольных вещественных чисел определить количество отрицательных элементовЭто Паскаль, нужна программа)

В числовой последовательности из N произвольных вещественных чисел определить количество отрицательных элементов

Это Паскаль, нужна программа)