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

Решение во вложениях. Удачи.