Составьте пожалуйста на языке QBasic
Ответы:
08-11-2011 07:40
DIM x(20) AS INTEGERRESTOREFOR i = 1 TO 20 READ x(i)NEXTs = 0FOR i = 1 TO 20 IF x(i) > 0 THEN s = s + x(i) END IFNEXTPRINT "s="; sENDDATA -3,9,-8,6,6,5,0,-7,9,18DATA 4,-7,9,7,5,-9,-6,6,3,8
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте пожалуйста на языке QBasic» от пользователя Ira Homchenko в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!