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

Ответы 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.

     

     

     

     

     

     

     

     

     

     

     

    • Автор:

      blanco
    • 7 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years