Ввести n чисел. Верно ли что количество введённых отрицательных чисел не превышает 5.

В Паскале

Question

Информатика

Машука

16 сентября, 12:38

Ввести n чисел. Верно ли что количество введённых отрицательных чисел не превышает 5.

В Паскале

+2

Ответы (1)

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

Феодула · Answer 1

Const

n = 10;

var

i, d, k: integer;

begin

for i : = 1 to n do

begin

readln (d) ;

if d < 0 then k : = k + 1;

end;

if k < = 5 then

writeln ('правда')

else

writeln ('не правда') ;

end.

Ввести n чисел. Верно ли что количество введённых отрицательных чисел не превышает 5.В Паскале

Ввести n чисел. Верно ли что количество введённых отрицательных чисел не превышает 5.

В Паскале