Положительный элементы вещественного массива разделить на сумму отрицательных элементов (массив брать до 10)

Question

Положительный элементы вещественного массива разделить на сумму отрицательных элементов (массив брать до 10)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[1..10]of extended; i,otr,m,pol:integer; begin for i:=1 to 10 do begin read(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.