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

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

Question

Информатика

Маланя

28 октября, 07:57

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

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

+3

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

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