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

Question

Информатика

Дея

21 ноября, 23:14

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

+2

Ответы (1)

Знаете ответ на вопрос?

Люда · 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;

if a[i]>0 then pol:=pol+1;

end;

m: = (pol/otr) ;

write (m) ;

end.