В последовательности n целых чисел вывести среднее арифметическое положительных чисел с точностью до сотых, если положительные числа отсутствуют, вывести 0
Program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end; end.