Положительный элементы вещественного массива разделить - вопрос №329841 от настя20162003 07.03.2020 02:23

Question

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

настя20162003 · 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.