Найти среднее арифметическое всех положительных элементов одномерного массива. В Delphi. 

const   n = 30; var   a: array[1..n] of integer;   i, s: integer; begin   Randomize;   s := 0;   writeln('Исходный массив');   for i := 1 to n do   begin     a[i] := Random(100) - 50;     write(a[i]:4);     if a[i] > 0 then s := s + a[i]   end;   writeln;   writeln('Сумма положительных элементов равна ', s) end. Тестовое решение: Исходный массив  -17  -8  11 -47  30 -32  18 -15 -36  18  -3  45  11  44 -14 -33  13 -26  -8 -31 -42  45  -9   2  42  48   6  10 -12  27 Сумма положительных элементов равна 370