Положительный элементы вещественного массива разделить на сумму отрицательных элементов (массив брать до 10)
medewwnik
2
16.03.2019 21:50
1
Другие вопросы по теме Информатика
andreykolomoytsev
01.02.2021 12:35
DarkLooord
19.03.2020 05:15
anavidyan920
16.08.2019 14:30
Alex1t0
16.08.2019 14:30
vladputilov451
16.08.2019 14:20
Sn9
16.08.2019 14:20
ddasha681
16.08.2019 14:20
Lisaezhik
16.08.2019 14:10
Obzzzi
16.08.2019 14:10
Популярные вопросы
- Найдите корень уравнения: log0,2(4x+7)=-2...
2 - Бассейн наполняется двумя трубами за 2ч55мин. вторая труба может наполнить...
3 - Чем похожи выражения в каждой паре? чем они отличаются? вычисли значение каждого...
2 - Расстояние от села до города 50 км.из села в город вышел пешеход со скоростью...
1 - Tag guestions 1) smoking is bad for you 2) computers are very 3) life was...
2 - Какое количество теплоты выделится при полной конденсации 400 г водяного пара...
3 - Сколько электронов находится на внешнем уровне элемента с порядковым номером...
2 - Ккакому разряду обстоятельств относятся наречия...
2 - :у лены 100 руб. и она хочет потратить их на без остатка на покупку цветов....
2 - Расставьте знаки препинания , постройте схемы предложений. 1) знаю вы не богаты...
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.