Напишите программу для определения количества участков, площадь котрых больше среднего арифметического площадей - VB
Формулировка задачи:
Ребят, помогите с зачей плз
в школе паскаль был я его хоть как то понимала а сейчас в универе начался бэйсик а я в нем блондинкО
напишите программу для определения колличества участков, площадь котрых Р1<P ,и количество участков площадь которых P1>=P. Р-среднее арифмитическое площадей
заранее спс
количество площадей должно быть рандомным(((
Решение задачи: «Напишите программу для определения количества участков, площадь котрых больше среднего арифметического площадей»
textual
Листинг программы
dim s()
n=val(inputbox("Сколько участков?"))' кол-во участков
redim p(1 to n)
for i=1 to n
p(i)=val(inputbox("Площадь участка №" & i & "?"))
summa=summa+p(i)
summa_kv=summa_kv+p(i)^2
next i
p_avg=summa/n
p_kv_avg=summa_kv/n
sigma=sqr(p_kv_avg-p_avg^2)
for i=1 to n
if p(i)<p_avg-sigma then n1=n1+1
if p_avg-sigma<=p(i) and p(i)<=p_avg+sigma then n2=n2+1
if p(i)>p_avg+sigma then n3=n3+1
next i
msgbox "малых - " & n1 & vbnewline & _
"средних - " & n2 & vbnewline & _
"больших - " & n3,,"всего " & n