Найти среднее арифметическое положительных элементов массива 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.