< >

Дана последовательность вещественных чисел а. Найти среднее арифметическое не отрицательных членов этой последовательности.

Ответы

Ответ дал: roookky
0
Var a,k,s,i:integer; Begin Readln(a); For i:=1 to a do begin Read(i); If i>=0 then begin k:=k+i; inc(s); end; End; A:=k div s; Write(a); End.
Похожие вопросы
Русский язык
2 года назад
помагите пожалуста если не трудно.
Русский язык
2 года назад
как образованно слово заплыв. каким способом
Химия
7 лет назад
1.укажите аллотропную модификацию углерода: а)кислород и озон б)сера ромбическая и пластическая в) графит и фуллерены г)сульфит и сульфат 2. газ А не имеет запаха и плохо растворяется в воде.
Математика
7 лет назад
2(а+3b -7c) 0,4(1,3x-0, 5y-1,3) (a-4d+3p)*(-0,8) раскрыть скобки​
География
10 лет назад
Какая отрасль промышленности преобладает в Германии
Математика
10 лет назад
До снижения цен товар стоил 900 рублей,а после стал стоить 720 рублей.На сколько процентов была снижена цена товара?
Алгебра
10 лет назад
В двух коробках = кол-во конфет. После того как из одной взяли 14 конфет , а в другую добавили 26, то в 1 в 3 раза < чем во 2. Сколько конфет было в коробках.
История
10 лет назад
Сопоставьте произведения средневековой литературы и его автора 1. «Декамерон» А. Уильям Ленгленд 2. « Видение о Петре Пахаре» Б. Данте Алигьери 3. «Божественная комедия» В. Вернер Садовник 4.