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

Ответы:
Матвей Щупенко
06-03-2010 04:49

Program n1;const n=10;var a: array[1..n] of real;sum,k: real;i: integer;beginsum:=0;k:=0;for i:=1 to n dobeginreadln(a[i]);if a[i]>0 then begink:=k+1;sum:=sum+a[i];end;end;write(sum/k);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Danya Guschin

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив вещественных чисел. найти среднее арифметическое неотрицательных элементов массива.» от пользователя Danya Guschin в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!