саша00 С саша00 Регистрация 14 Июл 2013 Сообщения 74 Репутация 0 Спасибо 0 Монет 0 13 Окт 2016 #1 Найти количество отдельно положительных и отрицательных елементов в последовательности 20 чисел, что вводяться. Нужно написать программу и сделать алгоритм, помогите сделать что-нибудь, прошу!
Найти количество отдельно положительных и отрицательных елементов в последовательности 20 чисел, что вводяться. Нужно написать программу и сделать алгоритм, помогите сделать что-нибудь, прошу!
CrazyLimon4ik C CrazyLimon4ik Регистрация 7 Дек 2013 Сообщения 76 Репутация 0 Спасибо 0 Монет 0 13 Окт 2016 #2 Помог бы, да с голоду ничего не соображается. Если дадите 60 рублей на пирожок, то могу сделать. Позитивный голос 0
max3000 M max3000 Регистрация 12 Авг 2013 Сообщения 89 Репутация 11 Спасибо 1 Монет 0 13 Окт 2016 #3 А чего сложного? for i:=1 to 20 do begin readln(a); if a>0 then inc(countp); if a<0 then inc(countn); end; writeln(countp,countn); Позитивный голос 0
А чего сложного? for i:=1 to 20 do begin readln(a); if a>0 then inc(countp); if a<0 then inc(countn); end; writeln(countp,countn);