Вопрос Помогите сделать программу на Паскале

[саша00]

Найти количество отдельно положительных и отрицательных елементов в последовательности 20 чисел, что вводяться.

Нужно написать программу и сделать алгоритм, помогите сделать что-нибудь, прошу!

 

[CrazyLimon4ik]

Помог бы, да с голоду ничего не соображается. Если дадите 60 рублей на пирожок, то могу сделать.

 

[max3000]

А чего сложного? 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);