Ребята, 50 баллов, нереально срочно, пожалуйста :( решите Задан массив NAF из N чисел...

Question

Ребята, 50 баллов, нереально срочно, пожалуйста :( решите
Задан массив NAF из N чисел (N=20) случайным образом в диапазоне [-5..5]. Найти среднее арифметическое ПОЛОЖИТЕЛЬНЫХ элементов массива. Прошу

Answer 1

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

begin
  var naf:=ArrRandom(20,-5,5); naf.Println;
  Writeln('Среднее арифметическое положительных: ',
      naf.Where(x->x>0).Average)
end.

Пример
2 -1 3 -2 -5 1 -5 -4 0 -3 -2 -2 0 0 -1 -1 0 1 1 -4
Среднее арифметическое положительных: 1.6

---

Answer 2

Хз на каком тебе языке нужно. Вот на C:
#include
#include
int main(){
int i, sum = 0, kol = 0, N = 20, NAF[20];
for (i = 0; i < N; i++)
scanf("%d", &NAF[i]);
for (i = 0; i < N; i++)
if (NAF[i] > 0)
{
sum = sum + NAF[i];
kol++;
}
if (kol > 0)
printf("%lf", (double)sum / kol);
return 0;
}

Comments

Блин. Забыла указать. Нужно на Паскале