Ввести с клавиатуры n-любых чисел, найти количество отрицательных чисел (Паскаль)

Question

Информатика

Федорыч

3 декабря, 09:12

Ввести с клавиатуры n-любых чисел, найти количество отрицательных чисел (Паскаль)

+2

Ответы (1)

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

Эва · Answer 1

1. var

2. a, product : real;

3. i, N : integer;

4. begin

5. product: = 1;

6. readln (N) ;

7. for i : = 1 to N do begin

8. readln (a) ;

9. if a < 0 then

10.: = product*a;

11. end;

12. writeln (product:0:2) ;