Задание:
Положительный элементы вещественного массива разделить на сумму отрицательных элементов (массив брать до 10)
Решение:
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.
Знаете другой ответ?