67

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива…

03 марта 2023

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива разделить на сумму отрицательных элементов (массив брать до 10)

категория: информатика



48

vara: array[1… 10]of extended; i,otr,m,pol: integer; beginfor i: =1 to 10 dobeginread (a[i]); if a[i]<0 then otr: =a[i]+otr; if a[i]>0 then pol: =pol+1; end; m: =(pol/otr); write (m); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...