Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество отрицательных и выдать их на экран

Question

Информатика

Касьян

11 ноября, 22:35

Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество отрицательных и выдать их на экран

+5

Ответы (1)

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

Кара · Answer 1

В простейшем виде программка будет такой

var A, i, c : integer;

begin

c:=0;

for i:=1 to 15 do begin

write ('введите число: ') ;

readln (A) ;

if A<0 then c:=c+1;

end;

writeln ('количество отрицательных чисел = ', c) ;

end.

Весли надо решать с массивами напиши - подправим