Найти среднне арифметическое элементов массива, расположенных после первого...

Question

Найти среднне арифметическое элементов массива, расположенных после первого положительного элемента массива

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln(a[a.FindIndex(x->x>0)+1:].Average)
end.

Пример
n= 13
-7 32 -26 39 27 12 -15 -27 -20 39 -7 29 2
4.81818181818182

Answer 2

На C++ если надо
-------------------------------
#include using namespace std;int main(){float mas[9]={-5,-1,2,3,-1,6,1,-1};float sum=0;bool a=false;int counter=0;for(int i=0;i<8;i++){ if(mas[i]>0&&!a){ a=true; i++; } if(a){ cout<<mas[i]<<endl; sum+=mas[i]; counter++; }}cout<<sum/counter<<endl;return 0;}

Comments

#include
using namespace std;
int main(){
float mas[9]={-5,-1,2,3,-1,6,1,-1};
float sum=0;
bool a=false;
int counter=0;
for(int i=0;i<8;i++){<br> if(mas[i]>0&&!a){
a=true;
i++;
}
if(a){
cout<<mas[i]<<endl;<br> sum+=mas[i];
counter++;
}
}
cout<<sum/counter<<endl;<br> return 0;
}