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

Хз на каком тебе языке нужно. Вот на C:
#include <stdio.h>
#include <stdlib.h>
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;
}

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

На С прикольнее. Длинно и непонятно)))