в последовательности; б) количество положительных чисел; в) количество отрицательных чисел.
Ответ или решение
Var n , k 1 , k 2 , k 3 , p , i : integer ; begin ; writeln ( ‘ Type N : ‘ ) ; readln( n ) ; for i : = 1 to n do begin ; readln ( p ) ; if p = 0 then inc ( k 1 ) ; if p > 0 then inc ( k 2 ) ; if p < 0 then inc ( k 3 ); end ; writeln ( ‘ 0 : ‘ , k 1); writeln ( ‘ + : ‘ , k 2 ) ; writeln ( ‘ — : ‘ , k 3 ) ; end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!