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

Question

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО!

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

Answer 1

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;<br>if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr); 
write(m);

end.