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

Есть ответ
18.12.2022
370

Ответ


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 pol:=pol+1;

 

 

end;

 m:=(pol/otr);  

 

 write(m);

end.

 

 

 

 

 

 

 

 

 

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.