Выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле

Question

Информатика

Тарасыч

6 мая, 09:06

Выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле

+2

Ответы (1)

Знаете ответ?

Декабриныч · Answer 1

Program Stats;

var a, k, d, c:integer;

begin

d:=0;

k:=0;

c:=0;

repeat

readln (a) ;

d:=d+1;

if a> = 0

then

begin

k:=k+1;

end;

if a<0

then

begin

c:=c+1;

end;

until d = 14;

writeln (' + ', k) ;

writeln (' - ', c) ;

readln

end.