AsVencim A AsVencim Регистрация 15 Ноя 2013 Сообщения 80 Репутация 6 Спасибо 1 Монет 0 19 Янв 2017 #1 Что выполняет данная программа: s:=0; k:=0; if a>0 then s:=s+a else if a<0 then k:=k+1;