Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20

var   i,sum, x : integer;                        // объявляем переменные целочисленного типа.   arr : array [1..100] of integer;     // объявляем массив.Begin    for i:= 1 to 100 do          // начало цикла.     begin        arr[i] := random(-20,20);      // заполняем элемент массива числом от -20 до 20.        if arr[i] > 0 then                   // если элемент положительный, то..

           begin               sum := sum + arr[i];   // считаем сумму положительных элементов.               x := x + 1;                 // считаем количество положительных элементов.           end;

end;  writeln(\'Среднее арифметическое положительных элементов массива: \', round(sum / x));End.