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

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] gt; 0 then                   // если элемент положительный, то..

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

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